system $CC, @$Args, "-E", "-o", $PPFile;
close ($PPH);
- open (OUT, ">", "$PPFile.info") or die "Cannot open $PPFile.info\n";
+ open (OUT, ">", "$PPFile.info.txt") or die "Cannot open $PPFile.info.txt\n";
print OUT abs_path($file), "\n";
print OUT "$ErrorType\n";
print OUT "@$Args\n";
close OUT;
- `uname -a >> $PPFile.info 2>&1`;
- `$CC -v >> $PPFile.info 2>&1`;
+ `uname -a >> $PPFile.info.txt 2>&1`;
+ `$CC -v >> $PPFile.info.txt 2>&1`;
system 'mv',$ofile,"$PPFile.stderr.txt";
}
# to update the common prefix directory.
if (-d "$Dir/crashes") {
opendir(DIR, "$Dir/crashes");
- my @files = grep { /[.]info$/; } readdir(DIR);
+ my @files = grep { /[.]info.txt$/; } readdir(DIR);
closedir(DIR);
foreach my $file (@files) {
open IN, "$Dir/crashes/$file" or DieDiag("cannot open $file\n");
if ($Crashes) {
# Read the crash directory for files.
opendir(DIR, "$Dir/crashes");
- my @files = grep { /[.]info$/ } readdir(DIR);
+ my @files = grep { /[.]info.txt$/ } readdir(DIR);
closedir(DIR);
if (scalar(@files)) {
ENDTEXT
foreach my $file (sort @files) {
- $file =~ /(.+).info$/;
+ $file =~ /(.+).info.txt$/;
# Get the preprocessed file.
my $ppfile = $1;
# Open the info file and get the name of the source file.