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

protect maintainer-clean-footprint from being deleted by prtwash,prtsweep

Browse Source
This commit is contained in:
John McQuah 2023-09-13 07:53:36 -04:00
parent f91912b1f7
commit 0c301f6387
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scripts/prtsweep.pl
View File

@ -103,7 +103,8 @@ sub parse_manifest {
my $sigfile = shift; my $sigfile = shift;
my $sigtype = (split /\//, $sigfile)[-1]; my $sigtype = (split /\//, $sigfile)[-1];
my @keeplist = ("Pkgfile",".footprint","README","README.md", my @keeplist = ("Pkgfile",".footprint","README","README.md",
"pre-install","post-install",".32bit",".nostrip"); "pre-install","post-install",".32bit",".nostrip",
"maintainer_clean_footprint");
push (@keeplist,$sigtype); push (@keeplist,$sigtype);
open (FILE, $sigfile) or return @keeplist; open (FILE, $sigfile) or return @keeplist;
while (<FILE>) { while (<FILE>) {

2
scripts/prtwash.pl
View File

@ -134,7 +134,7 @@ sub keeplist { # remember to pop off the last two elements for regex purposes
my $port = shift; my $port = shift;
my @keepers = ("Pkgfile",".footprint",".signature"); my @keepers = ("Pkgfile",".footprint",".signature");
push (@keepers,"pre-install","post-install","README","README.md", push (@keepers,"pre-install","post-install","README","README.md",
".32bit",".nostrip") if $options{addons}==0; ".32bit",".nostrip","maintainer_clean_footprint") if $options{addons}==0;
my @parsed = parse_pkgfile("$port/Pkgfile"); # file existence already tested my @parsed = parse_pkgfile("$port/Pkgfile"); # file existence already tested
my $name = ${$parsed[0]}; # by the caller. But if Pkgfile my $name = ${$parsed[0]}; # by the caller. But if Pkgfile