--- 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)";
}