210 |
210 |
211 if ($characters =~ m,[^\s^\r^\n],) |
211 if ($characters =~ m,[^\s^\r^\n],) |
212 { |
212 { |
213 $filename = "$::raptorbitsdir/raptor_error.txt"; |
213 $filename = "$::raptorbitsdir/raptor_error.txt"; |
214 $filename = "$::raptorbitsdir/$package.txt" if ($package); |
214 $filename = "$::raptorbitsdir/$package.txt" if ($package); |
|
215 my $filenamewnopath = "raptor_error.txt"; |
|
216 $filenamewnopath = "$package.txt" if ($package); |
215 |
217 |
216 if (!-f$filename) |
218 if (!-f$filename) |
217 { |
219 { |
218 print "Writing file $filename\n"; |
220 print "Writing file $filename\n"; |
219 open(FILE, ">$filename"); |
221 open(FILE, ">$filename"); |
220 close(FILE); |
222 close(FILE); |
221 } |
223 } |
222 |
224 |
223 my $dumped = process($characters, $::current_log_file, $raptor_error_info->{bldinf}, '', '', '', "$package.txt"); |
225 my $dumped = process($characters, $::current_log_file, $raptor_error_info->{bldinf}, '', '', '', $filenamewnopath); |
224 |
226 |
225 if ($dumped) |
227 if ($dumped) |
226 { |
228 { |
227 open(FILE, ">>$filename"); |
229 open(FILE, ">>$filename"); |
228 print FILE "---failure_item_$::failure_item_number\---\n"; |
230 print FILE "---failure_item_$::failure_item_number\---\n"; |