149 |
149 |
150 if ($characters =~ m,[^\s^\r^\n],) |
150 if ($characters =~ m,[^\s^\r^\n],) |
151 { |
151 { |
152 $filename = "$::raptorbitsdir/raptor_warning.txt"; |
152 $filename = "$::raptorbitsdir/raptor_warning.txt"; |
153 $filename = "$::raptorbitsdir/$package.txt" if ($package); |
153 $filename = "$::raptorbitsdir/$package.txt" if ($package); |
|
154 my $filenamewnopath = "raptor_warning.txt"; |
|
155 $filenamewnopath = "$package.txt" if ($package); |
154 |
156 |
155 if (!-f$filename) |
157 if (!-f$filename) |
156 { |
158 { |
157 print "Writing file $filename\n"; |
159 print "Writing file $filename\n"; |
158 open(FILE, ">$filename"); |
160 open(FILE, ">$filename"); |
159 close(FILE); |
161 close(FILE); |
160 } |
162 } |
161 |
163 |
162 my $dumped = process($characters, $::current_log_file, $raptor_warning_info->{bldinf}, '', '', '', "$package.txt"); |
164 my $dumped = process($characters, $::current_log_file, $raptor_warning_info->{bldinf}, '', '', '', $filenamewnopath); |
163 |
165 |
164 if ($dumped) |
166 if ($dumped) |
165 { |
167 { |
166 open(FILE, ">>$filename"); |
168 open(FILE, ">>$filename"); |
167 print FILE "---failure_item_$::failure_item_number\---\n"; |
169 print FILE "---failure_item_$::failure_item_number\---\n"; |