equal
deleted
inserted
replaced
120 $characters =~ s,[\r\n]*$,,; |
120 $characters =~ s,[\r\n]*$,,; |
121 |
121 |
122 my $package = ''; |
122 my $package = ''; |
123 # if bldinf attribute is not available then heuristically attempt to determine the package |
123 # if bldinf attribute is not available then heuristically attempt to determine the package |
124 if (!$raptor_warning_info->{bldinf} && |
124 if (!$raptor_warning_info->{bldinf} && |
125 $characters =~ m,.*?(([/\\]sf)?[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s) |
125 $characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s) |
126 { |
126 { |
127 $raptor_warning_info->{bldinf} = "$1... (guessed)"; |
127 $raptor_warning_info->{bldinf} = "$1... (guessed)"; |
128 } |
128 } |
129 |
129 |
130 if ($raptor_warning_info->{bldinf}) |
130 if ($raptor_warning_info->{bldinf}) |