Handle new different package location format.

https://sourceforge.net/tracker/?func=detail&atid=117457&aid=3102632&group_id=17457
This commit is contained in:
Jamie Cameron
2010-11-04 16:40:56 -07:00
parent 4b6d8ed898
commit 7b177d0ca9

View File

@@ -41,7 +41,8 @@ foreach $f (@list) {
$packages{$i,'class'} = $text{'slack_unclass'};
&open_tempfile(PKG, "$package_dir/$f");
while(<PKG>) {
if (/^PACKAGE LOCATION:\s+disk([a-z]+)\d+/i) {
if (/^PACKAGE LOCATION:\s+disk([a-z]+)\d+/i ||
/^PACKAGE LOCATION:\s+\S+\/([a-z]+)\/[^\/]+$/i) {
$packages{$i,'class'} = $class_map{$1};
}
elsif (/^PACKAGE DESCRIPTION:/i) {