diff options
author | Graham Barr <gbarr@pobox.com> | 1998-07-12 14:57:47 -0500 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-13 02:44:30 +0000 |
commit | 8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7 (patch) | |
tree | 5014b290517414faa6839abd622ed81e17116829 /globals.c | |
parent | c70c8a0a59777ed7fb7075471185210bc2169b49 (diff) | |
download | perl-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.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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, |