Browse Source

This is pretty good, probably could just check for -x, but can't be sure

if things aren't staying within /tmp or a new value for $tmp.
master
freesource 23 years ago
parent
commit
ed2b3a79fb
  1. 8
      swim

8
swim

@ -811,7 +811,7 @@ sub command {
(-x $tmp && !-w $tmp) || (-x $tmp && !-w $tmp) ||
(!-x && -w $tmp) (!-x $tmp && -w $tmp)
) { ) {
print STDERR "swim: $tmp is not "; print STDERR "swim: $tmp is not ";
@ -829,7 +829,7 @@ sub command {
print STDERR "/" if !-w $tmp || !-r $tmp; print STDERR "/" if !-w $tmp || !-r $tmp;
print STDERR "executable" if !-x $tmp; print STDERR "executable" if !-x $tmp;
print STDERR " by your effective uid/gid " . print STDERR " by your effective uid/gid " .
"in $ENV{HOME}/.swimrc\n"; "in $ENV{HOME}/.swim/swimrc\n";
return "tmp not-writable"; return "tmp not-writable";
} }
$commands{"check"} = 1; $commands{"check"} = 1;
@ -861,7 +861,7 @@ sub command {
(-x $tmp && !-w $tmp) || (-x $tmp && !-w $tmp) ||
(!-x && -w $tmp) (!-x $tmp && -w $tmp)
) { ) {
print STDERR "swim: $tmp is not "; print STDERR "swim: $tmp is not ";
@ -879,7 +879,7 @@ sub command {
print STDERR "/" if !-w $tmp || !-r $tmp; print STDERR "/" if !-w $tmp || !-r $tmp;
print STDERR "executable" if !-x $tmp; print STDERR "executable" if !-x $tmp;
print STDERR " by your effective uid/gid " . print STDERR " by your effective uid/gid " .
"in $ENV{HOME}/.swimrc\n"; "in $ENV{HOME}/.swim/swimrc\n";
return "tmp not-writable"; return "tmp not-writable";
} }

Loading…
Cancel
Save