--- a/uh_parser/RaptorWarning.pm Tue May 11 11:31:22 2010 +0100
+++ b/uh_parser/RaptorWarning.pm Tue May 11 13:39:54 2010 +0100
@@ -123,7 +123,7 @@
my $package = '';
# if bldinf attribute is not available then heuristically attempt to determine the package
if (!$raptor_warning_info->{bldinf} &&
- $characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s)
+ $characters =~ m,.*?([/\\]sf|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s)
{
$raptor_warning_info->{bldinf} = "$1... (guessed)";
}
@@ -137,7 +137,7 @@
$raptor_warning_info->{bldinf} =~ s,^[A-Za-z]:,,;
$raptor_warning_info->{bldinf} =~ s,[\\],/,g;
- if ($raptor_warning_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),)
+ if ($raptor_warning_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),)
{
$package = $1;
$package =~ s,/,_,;