uh_parser/RaptorError.pm
changeset 259 dfa3d8557c61
parent 258 08436a227940
child 260 09b83ca8e0cf
equal deleted inserted replaced
258:08436a227940 259:dfa3d8557c61
   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|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][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})
   205 		# normalize bldinf path
   205 		# normalize bldinf path
   206 		$raptor_error_info->{bldinf} = lc($raptor_error_info->{bldinf});
   206 		$raptor_error_info->{bldinf} = lc($raptor_error_info->{bldinf});
   207 		$raptor_error_info->{bldinf} =~ s,^[A-Za-z]:,,;
   207 		$raptor_error_info->{bldinf} =~ s,^[A-Za-z]:,,;
   208 		$raptor_error_info->{bldinf} =~ s,[\\],/,g;
   208 		$raptor_error_info->{bldinf} =~ s,[\\],/,g;
   209 		
   209 		
   210 		if ($raptor_error_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),)
   210 		if ($raptor_error_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),)
   211 		{
   211 		{
   212 			$package = $1;
   212 			$package = $1;
   213 			$package =~ s,/,_,;
   213 			$package =~ s,/,_,;
   214 		}
   214 		}
   215 		else
   215 		else