equal
deleted
inserted
replaced
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}) |