summaryrefslogtreecommitdiff
path: root/regexp.h
diff options
context:
space:
mode:
authorGraham Barr <gbarr@pobox.com>1998-07-12 14:57:47 -0500
committerGurusamy Sarathy <gsar@cpan.org>1998-07-13 02:44:30 +0000
commit8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7 (patch)
tree5014b290517414faa6839abd622ed81e17116829 /regexp.h
parentc70c8a0a59777ed7fb7075471185210bc2169b49 (diff)
downloadperl-8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7.tar.gz
added patch, tweaked PERL_OBJECT things
Message-Id: <19980712195747.C493@pobox.com> Subject: [ PATCH perl5.004_72] patch to add qr// p4raw-id: //depot/perl@1461
Diffstat (limited to 'regexp.h')
-rw-r--r--regexp.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/regexp.h b/regexp.h
index a123efe02f..fbc92370b8 100644
--- a/regexp.h
+++ b/regexp.h
@@ -86,8 +86,8 @@ typedef struct regexp {
#define ROPT_CHECK_ALL 0x80
#define ROPT_LOOKBEHIND_SEEN 0x100
#define ROPT_EVAL_SEEN 0x200
-
-#define ROPT_TAINTED_SEEN 0x8000
+#define ROPT_TAINTED_SEEN 0x400
+/* 0xf800 of reganch is used by PMf_COMPILETIME */
#define RX_MATCH_TAINTED(prog) ((prog)->reganch & ROPT_TAINTED_SEEN)
#define RX_MATCH_TAINTED_on(prog) ((prog)->reganch |= ROPT_TAINTED_SEEN)