Skip to content

Commit 4a940cf

Browse files
committed
avert chmod on any symlink
1 parent da089bf commit 4a940cf

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

bin/paused

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -875,10 +875,13 @@ sub _rewrite_tarball {
875875
open my $fh, "-|", tar => "-C", $testdir, $taropt, "-xvvf", $path or die "could not fork";
876876
my(@ww); #world-writable
877877
my(@dnx); #directories-not-xessable
878-
while (<$fh>) {
878+
TARX: while (<$fh>) {
879879
chomp;
880880
my($stat,@rest) = split " ", $_;
881881
my($dir,$ur,$uw,$ux,$gr,$gw,$gx,$or,$ow,$ox) = $stat =~ /^(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)/;
882+
if ($dir && $dir eq "l") {
883+
next TARX: # avert chmod on any symlink
884+
}
882885
if ($ow && $ow eq "w") {
883886
push @ww, $rest[-1];
884887
}

0 commit comments

Comments
 (0)