diff options
| author | Brent Dax <brentdax@cpan.org> | 2002-07-25 22:41:52 -0700 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-05 15:04:54 +0000 |
| commit | c963b151157dab5813a32fc6004b63916ad155e8 (patch) | |
| tree | e88a528a16616c2f136f31b2c37b08e237b08799 /opcode.h | |
| parent | d73f34fb2db5664941bbe71b34c335b0ae3b50b3 (diff) | |
| download | perl-c963b151157dab5813a32fc6004b63916ad155e8.tar.gz | |
Defined-or patch (cleaned up)
From: "Brent Dax" <brentdax@cpan.org>
Message-id: <000001c234a1$d1ca72c0$6501a8c0@deepblue>
p4raw-id: //depot/perl@17682
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -380,6 +380,8 @@ EXT char *PL_op_name[] = { "threadsv", "setstate", "method_named", + "dor", + "dorassign", "custom", }; #endif @@ -739,6 +741,8 @@ EXT char *PL_op_desc[] = { "per-thread value", "set statement info", "method with known name", + "defined or (//)", + "defined or assignment (//=)", "unknown custom operator", }; #endif @@ -1103,6 +1107,8 @@ EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX) = { MEMBER_TO_FPTR(Perl_pp_threadsv), MEMBER_TO_FPTR(Perl_pp_setstate), MEMBER_TO_FPTR(Perl_pp_method_named), + MEMBER_TO_FPTR(Perl_pp_dor), + MEMBER_TO_FPTR(Perl_pp_dorassign), }; #endif @@ -1461,6 +1467,8 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = { MEMBER_TO_FPTR(Perl_ck_null), /* threadsv */ MEMBER_TO_FPTR(Perl_ck_null), /* setstate */ MEMBER_TO_FPTR(Perl_ck_null), /* method_named */ + MEMBER_TO_FPTR(Perl_ck_null), /* dor */ + MEMBER_TO_FPTR(Perl_ck_null), /* dorassign */ MEMBER_TO_FPTR(Perl_ck_null), /* custom */ }; #endif @@ -1820,6 +1828,8 @@ EXT U32 PL_opargs[] = { 0x00000044, /* threadsv */ 0x00001404, /* setstate */ 0x00000c40, /* method_named */ + 0x00000600, /* dor */ + 0x00000604, /* dorassign */ 0x00000000, /* custom */ }; #endif |