Extra tweakage from Rafael for #19392.

p4raw-id: //depot/perl@19393

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 9954512..5dc3332 100644 (file)
--- 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 8aa4a77..59e1d48 100644 (file)
--- 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