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