uh_parser/RaptorError.pm
changeset 233 cf1d34408de3
parent 232 0244765a8d6f
child 235 907120563fce
--- 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)
 		{