jmq/Documentation
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

prtwash: use stricter regex to identify latest built package

Browse Source
This commit is contained in:
John McQuah 2023-11-16 23:54:02 +00:00
parent bb58beecda
commit 9f5096eb27
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scripts/prtwash.pl
View File

@ -156,7 +156,7 @@ sub keeplist { # remember to pop off the last two elements for regex purposes
push(@keepers, $ki);
}
}
push (@keepers, "$name#$version.*\.pkg\.tar\.$compression_mode");
push (@keepers, "$name#$version-$release\.pkg\.tar\.$compression_mode");
push (@keepers, "$name#.*\.pkg\.tar\.$compression_mode");
return @keepers;
}
@ -214,7 +214,6 @@ sub getportdirs { # returns scalar references to two arrays
$line =~ s/^prtdir\s+//; #remove the leading directive
$line =~ s/#.*$//; #strip inline comments like this one
$line =~ s/\s+//g; #collapse all whitespace, even if in a path!
#(not that we ever put spaces or commas in repo names anyway)
if ( $line !~ /:/ ) {
push @basedirs, $line if (-d $line);
} else {