summaryrefslogtreecommitdiff
path: root/globals.c
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 /globals.c
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 'globals.c')
-rw-r--r--globals.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/globals.c b/globals.c
index ba4d872236..249e69b0b4 100644
--- a/globals.c
+++ b/globals.c
@@ -66,6 +66,8 @@
#define pp_regcomp CPerlObj::Perl_pp_regcomp
#undef pp_match
#define pp_match CPerlObj::Perl_pp_match
+#undef pp_qr
+#define pp_qr CPerlObj::Perl_pp_qr
#undef pp_subst
#define pp_subst CPerlObj::Perl_pp_subst
#undef pp_substcont
@@ -730,6 +732,7 @@ OP * (CPERLscope(*check)[]) _((OP *op)) = {
ck_fun, /* regcreset */
ck_null, /* regcomp */
ck_match, /* match */
+ ck_match, /* qr */
ck_null, /* subst */
ck_null, /* substcont */
ck_null, /* trans */
@@ -1080,6 +1083,7 @@ OP * (CPERLscope(*ppaddr)[])(ARGSproto) = {
pp_regcreset,
pp_regcomp,
pp_match,
+ pp_qr,
pp_subst,
pp_substcont,
pp_trans,