diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-03 05:34:21 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-03 05:34:21 +0000 |
| commit | feaeca788fb70f9d4aec1c392b5033f8e2c1542a (patch) | |
| tree | 4ab7cae02f51b2f69c1f7c9b6745c6324060fd92 | |
| parent | 1af34c76bc1167bbfada70004d6cbc41b0098f64 (diff) | |
| download | perl-feaeca788fb70f9d4aec1c392b5033f8e2c1542a.tar.gz | |
Extra tweakage from Rafael for #19392.
p4raw-id: //depot/perl@19393
| -rw-r--r-- | ext/B/B/Concise.pm | 2 | ||||
| -rw-r--r-- | lib/filetest.pm | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 9954512ba5..5dc3332632 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -368,6 +368,8 @@ $priv{"threadsv"}{64} = "SVREFd"; @{$priv{$_}}{16,32,64,128} = ("INBIN","INCR","OUTBIN","OUTCR") for ("open", "backtick"); $priv{"exit"}{128} = "VMS"; +$priv{$_}{2} = "FTACCESS" + for ("ftrread", "ftrwrite", "ftrexec", "fteread", "ftewrite", "fteexec"); sub private_flags { my($name, $x) = @_; diff --git a/lib/filetest.pm b/lib/filetest.pm index 8aa4a77f82..59e1d48534 100644 --- a/lib/filetest.pm +++ b/lib/filetest.pm @@ -18,10 +18,10 @@ filetest - Perl pragma to control the filetest permission operators =head1 DESCRIPTION This pragma tells the compiler to change the behaviour of the filetest -permissions operators, the C<-r> C<-w> C<-x> C<-R> C<-W> C<-X> +permission operators, C<-r> C<-w> C<-x> C<-R> C<-W> C<-X> (see L<perlfunc>). -The default behaviour to use the mode bits as returned by the stat() +The default behaviour is to use the mode bits as returned by the stat() family of calls. This, however, may not be the right thing to do if for example various ACL (access control lists) schemes are in use. For such environments, C<use filetest> may help the permission |