From 8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7 Mon Sep 17 00:00:00 2001 From: Graham Barr Date: Sun, 12 Jul 1998 14:57:47 -0500 Subject: 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 --- globals.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'globals.c') 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, -- cgit v1.2.1