equal
deleted
inserted
replaced
188 $characters =~ s,[\r\n]*$,,; |
188 $characters =~ s,[\r\n]*$,,; |
189 |
189 |
190 my $package = ''; |
190 my $package = ''; |
191 # if bldinf attribute is not available then heuristically attempt to determine the package |
191 # if bldinf attribute is not available then heuristically attempt to determine the package |
192 if (!$raptor_error_info->{bldinf} && |
192 if (!$raptor_error_info->{bldinf} && |
193 $characters =~ m,.*?(([/\\]sf)?[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s) |
193 $characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s) |
194 { |
194 { |
195 $raptor_error_info->{bldinf} = "$1... (guessed)"; |
195 $raptor_error_info->{bldinf} = "$1... (guessed)"; |
196 } |
196 } |
197 |
197 |
198 if ($raptor_error_info->{bldinf}) |
198 if ($raptor_error_info->{bldinf}) |