uh_parser/RaptorError.pm
changeset 217 8a3d46cfe8b5
parent 216 907120563fce
child 230 f593b7acdb37
--- a/uh_parser/RaptorError.pm	Mon Apr 12 13:26:38 2010 +0100
+++ b/uh_parser/RaptorError.pm	Mon Apr 12 14:47:03 2010 +0100
@@ -190,7 +190,7 @@
 	my $package = '';
 	# if bldinf attribute is not available then heuristically attempt to determine the package
 	if (!$raptor_error_info->{bldinf} &&
-		$characters =~ m,.*?(([/\\]sf)?[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s)
+		$characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s)
 	{
 		$raptor_error_info->{bldinf} = "$1... (guessed)";
 	}