uh_parser/RaptorError.pm
changeset 284 09f57a9bad07
parent 267 a02973783e64
child 287 2733de861a5d
equal deleted inserted replaced
279:73890f073898 284:09f57a9bad07
   191 	#print "error: -->$characters<--\n";
   191 	#print "error: -->$characters<--\n";
   192 	
   192 	
   193 	my $package = '';
   193 	my $package = '';
   194 	# if bldinf attribute is not available then heuristically attempt to determine the package
   194 	# if bldinf attribute is not available then heuristically attempt to determine the package
   195 	if (!$raptor_error_info->{bldinf} &&
   195 	if (!$raptor_error_info->{bldinf} &&
   196 		$characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s)
   196 		$characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation|adapt)[/\\][a-zA-Z]+[/\\]?),s)
   197 	{
   197 	{
   198 		$raptor_error_info->{bldinf} = "$1... (guessed)";
   198 		$raptor_error_info->{bldinf} = "$1... (guessed)";
   199 	}
   199 	}
   200 	
   200 	
   201 	if ($raptor_error_info->{bldinf})
   201 	if ($raptor_error_info->{bldinf})