This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Merge t/.gitignore in main git ignore file
[perl5.git] / opnames.h
index ac6d259..3914ea8 100644 (file)
--- a/opnames.h
+++ b/opnames.h
@@ -3,7 +3,7 @@
  *    opnames.h
  *
  *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
- *    2007 by Larry Wall and others
+ *    2007, 2008 by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -398,4 +398,7 @@ typedef enum opcode {
 #define OP_IS_FILETEST(op)     \
        ((op) >= OP_FTRREAD && (op) <= OP_FTBINARY)
 
+#define OP_IS_FILETEST_ACCESS(op)      \
+       ((op) >= OP_FTRREAD && (op) <= OP_FTEEXEC)
+
 /* ex: set ro: */