uh_parser/RaptorUnreciped.pm
changeset 260 09b83ca8e0cf
parent 259 dfa3d8557c61
child 264 f10adc84543a
--- a/uh_parser/RaptorUnreciped.pm	Tue May 11 13:39:54 2010 +0100
+++ b/uh_parser/RaptorUnreciped.pm	Wed May 12 10:32:26 2010 +0100
@@ -169,7 +169,7 @@
 		my $package = '';
 		my $guessed_bldinf = '';
 		# if bldinf attribute is not available then heuristically attempt to determine the package
-		if ($line =~ m,.*?([/\\]sf|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s)
+		if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s)
 		{
 			$guessed_bldinf = "$1... (guessed)";
 		}
@@ -183,7 +183,7 @@
 			$guessed_bldinf =~ s,^[A-Za-z]:,,;
 			$guessed_bldinf =~ s,[\\],/,g;
 			
-			if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),)
+			if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),)
 			{
 				$package = $1;
 				$package =~ s,/,_,;