From feaeca788fb70f9d4aec1c392b5033f8e2c1542a Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 3 May 2003 05:34:21 +0000
Subject: [PATCH] Extra tweakage from Rafael for #19392.

p4raw-id: //depot/perl@19393
---
 ext/B/B/Concise.pm | 2 ++
 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 9954512..5dc3332 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 8aa4a77..59e1d48 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
-- 
2.7.4