equal
deleted
inserted
replaced
130 |
130 |
131 if ($raptor_warning_info->{bldinf}) |
131 if ($raptor_warning_info->{bldinf}) |
132 { |
132 { |
133 $::allbldinfs->{$raptor_warning_info->{bldinf}} = 1; |
133 $::allbldinfs->{$raptor_warning_info->{bldinf}} = 1; |
134 |
134 |
135 # normalize bldinf path |
135 RaptorCommon::normalize_bldinf_path(\$raptor_warning_info->{bldinf}); |
136 $raptor_warning_info->{bldinf} = lc($raptor_warning_info->{bldinf}); |
|
137 $raptor_warning_info->{bldinf} =~ s,^[A-Za-z]:,,; |
|
138 $raptor_warning_info->{bldinf} =~ s,[\\],/,g; |
|
139 |
136 |
140 if ($raptor_warning_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) |
137 $package = RaptorCommon::get_package_subpath($raptor_warning_info->{bldinf}); |
141 { |
138 $package =~ s,/,_,g; |
142 $package = $1; |
139 if (!$package) |
143 $package =~ s,/,_,; |
|
144 } |
|
145 else |
|
146 { |
140 { |
147 print "WARNING: can't understand bldinf attribute of raptor warning: $raptor_warning_info->{bldinf}. Won't associate to package.\n"; |
141 print "WARNING: can't understand bldinf attribute of raptor warning: $raptor_warning_info->{bldinf}. Won't associate to package.\n"; |
148 } |
142 } |
149 } |
143 } |
150 |
144 |