1
0
mirror of https://github.com/fspc/dswim.git synced 2025-02-22 00:23:28 -05:00

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.
This commit is contained in:
freesource 2001-10-23 07:06:58 +00:00
parent 41c0e2d114
commit ed2b3a79fb

8
swim
View File

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