--- a/uh_parser/RaptorError.pm Fri Apr 09 17:38:33 2010 +0100
+++ b/uh_parser/RaptorError.pm Fri Apr 09 18:03:22 2010 +0100
@@ -212,6 +212,8 @@
{
$filename = "$::raptorbitsdir/raptor_error.txt";
$filename = "$::raptorbitsdir/$package.txt" if ($package);
+ my $filenamewnopath = "raptor_error.txt";
+ $filenamewnopath = "$package.txt" if ($package);
if (!-f$filename)
{
@@ -220,7 +222,7 @@
close(FILE);
}
- my $dumped = process($characters, $::current_log_file, $raptor_error_info->{bldinf}, '', '', '', "$package.txt");
+ my $dumped = process($characters, $::current_log_file, $raptor_error_info->{bldinf}, '', '', '', $filenamewnopath);
if ($dumped)
{