Browse Source

Just makes sure that / doesn't print when checking rwx and for wx

master
freesource 23 years ago
parent
commit
92d1ab60b2
  1. 8
      swim

8
swim

@ -818,7 +818,7 @@ sub command {
print STDERR "readable" if !-r $tmp; print STDERR "readable" if !-r $tmp;
print STDERR "/" if !-r $tmp && !-w $tmp; print STDERR "/" if !-r $tmp && !-w $tmp;
print STDERR "writable" if !-w $tmp; print STDERR "writable" if !-w $tmp;
print STDERR "/" if !-w $tmp || !-r $tmp; print STDERR "/" if (!-w $tmp || !-r $tmp) && !-x $tmp;
print STDERR "executable" if !-x $tmp; print STDERR "executable" if !-x $tmp;
print STDERR " by your effective uid/gid\n"; print STDERR " by your effective uid/gid\n";
@ -826,7 +826,7 @@ sub command {
print STDERR "readable" if !-r $tmp; print STDERR "readable" if !-r $tmp;
print STDERR "/" if !-r $tmp && !-w $tmp; print STDERR "/" if !-r $tmp && !-w $tmp;
print STDERR "writable" if !-w $tmp; print STDERR "writable" if !-w $tmp;
print STDERR "/" if !-w $tmp || !-r $tmp; print STDERR "/" if (!-w $tmp || !-r $tmp) && !-x $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}/.swim/swimrc\n"; "in $ENV{HOME}/.swim/swimrc\n";
@ -868,7 +868,7 @@ sub command {
print STDERR "readable" if !-r $tmp; print STDERR "readable" if !-r $tmp;
print STDERR "/" if !-r $tmp && !-w $tmp; print STDERR "/" if !-r $tmp && !-w $tmp;
print STDERR "writable" if !-w $tmp; print STDERR "writable" if !-w $tmp;
print STDERR "/" if !-w $tmp || !-r $tmp; print STDERR "/" if (!-w $tmp || !-r $tmp) && !-x $tmp;
print STDERR "executable" if !-x $tmp; print STDERR "executable" if !-x $tmp;
print STDERR " by your effective uid/gid\n"; print STDERR " by your effective uid/gid\n";
@ -876,7 +876,7 @@ sub command {
print STDERR "readable" if !-r $tmp; print STDERR "readable" if !-r $tmp;
print STDERR "/" if !-r $tmp && !-w $tmp; print STDERR "/" if !-r $tmp && !-w $tmp;
print STDERR "writable" if !-w $tmp; print STDERR "writable" if !-w $tmp;
print STDERR "/" if !-w $tmp || !-r $tmp; print STDERR "/" if (!-w $tmp || !-r $tmp) && !-x $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}/.swim/swimrc\n"; "in $ENV{HOME}/.swim/swimrc\n";

Loading…
Cancel
Save