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|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s) |
126 $characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][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}) |
135 # normalize bldinf path |
135 # normalize bldinf path |
136 $raptor_warning_info->{bldinf} = lc($raptor_warning_info->{bldinf}); |
136 $raptor_warning_info->{bldinf} = lc($raptor_warning_info->{bldinf}); |
137 $raptor_warning_info->{bldinf} =~ s,^[A-Za-z]:,,; |
137 $raptor_warning_info->{bldinf} =~ s,^[A-Za-z]:,,; |
138 $raptor_warning_info->{bldinf} =~ s,[\\],/,g; |
138 $raptor_warning_info->{bldinf} =~ s,[\\],/,g; |
139 |
139 |
140 if ($raptor_warning_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) |
140 if ($raptor_warning_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) |
141 { |
141 { |
142 $package = $1; |
142 $package = $1; |
143 $package =~ s,/,_,; |
143 $package =~ s,/,_,; |
144 } |
144 } |
145 else |
145 else |