fix misleading comment about Perl_re_dup_guts

[p5sagit/p5-mst-13.2.git] / opnames.h

diff --git a/opnames.h b/opnames.h
index ac6d259..e0012ed 100644 (file)
--- a/opnames.h
+++ b/opnames.h
@@ -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: */