oops in previous commit -- s/:/;/

andk · andk · commit 418347a5d4ba · 2024-11-04T09:01:35.000+01:00
diff --git a/bin/paused b/bin/paused
@@ -880,7 +880,7 @@ sub _rewrite_tarball {
         my($stat,@rest) = split " ", $_;
         my($dir,$ur,$uw,$ux,$gr,$gw,$gx,$or,$ow,$ox) = $stat =~ /^(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)/;
         if ($dir && $dir eq "l") {
-            next TARX: # avert chmod on any symlink
+            next TARX; # avert chmod on any symlink
         }
         if ($ow && $ow eq "w") {
             push @ww, $rest[-1];

Original file line number	Diff line number	Diff line change
`@@ -880,7 +880,7 @@ sub _rewrite_tarball {`
`880`	`880`	`my($stat,@rest) = split " ", $_;`
`881`	`881`	`my($dir,$ur,$uw,$ux,$gr,$gw,$gx,$or,$ow,$ox) = $stat =~ /^(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)/;`
`882`	`882`	`if ($dir && $dir eq "l") {`
`883`		`- next TARX: # avert chmod on any symlink`
	`883`	`+ next TARX; # avert chmod on any symlink`
`884`	`884`	`}`
`885`	`885`	`if ($ow && $ow eq "w") {`
`886`	`886`	`push @ww, $rest[-1];`