diff options
| author |   millert <millert@openbsd.org> | 2001-05-24 18:34:40 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2001-05-24 18:34:40 +0000 |
| commit | c5dcfd37a3164fb53e0dfad8933a4e7c5f31c639 (patch) | |
| tree | 3be355f56e8f30e0beb22d375a75a1e8ca129d25 /gnu/usr.bin/perl/opcode.h | |
| parent | stock perl 5.6.1 (diff) | |
| download | wireguard-openbsd-c5dcfd37a3164fb53e0dfad8933a4e7c5f31c639.tar.xz wireguard-openbsd-c5dcfd37a3164fb53e0dfad8933a4e7c5f31c639.zip | |
merge in perl 5.6.1 with our local changes
Diffstat (limited to 'gnu/usr.bin/perl/opcode.h')
| -rw-r--r-- | gnu/usr.bin/perl/opcode.h | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/usr.bin/perl/opcode.h b/gnu/usr.bin/perl/opcode.h index f0fcba9fefd..542ec60c8b4 100644 --- a/gnu/usr.bin/perl/opcode.h +++ b/gnu/usr.bin/perl/opcode.h @@ -439,7 +439,7 @@ EXT char *PL_op_desc[] = { "integer addition (+)", "subtraction (-)", "integer subtraction (-)", - "concatenation (.)", + "concatenation (.) or string", "string", "left bitshift (<<)", "right bitshift (>>)", @@ -513,7 +513,7 @@ EXT char *PL_op_desc[] = { "unpack", "pack", "split", - "join", + "join or string", "list", "list slice", "anonymous list ([])", @@ -541,7 +541,7 @@ EXT char *PL_op_desc[] = { "method lookup", "subroutine entry", "subroutine exit", - "lvalue subroutine exit", + "lvalue subroutine return", "caller", "warn", "die", @@ -1205,7 +1205,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = { MEMBER_TO_FPTR(Perl_ck_fun), /* oct */ MEMBER_TO_FPTR(Perl_ck_fun), /* abs */ MEMBER_TO_FPTR(Perl_ck_lengthconst), /* length */ - MEMBER_TO_FPTR(Perl_ck_fun), /* substr */ + MEMBER_TO_FPTR(Perl_ck_substr), /* substr */ MEMBER_TO_FPTR(Perl_ck_fun), /* vec */ MEMBER_TO_FPTR(Perl_ck_index), /* index */ MEMBER_TO_FPTR(Perl_ck_index), /* rindex */ @@ -1278,7 +1278,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = { MEMBER_TO_FPTR(Perl_ck_null), /* iter */ MEMBER_TO_FPTR(Perl_ck_null), /* enterloop */ MEMBER_TO_FPTR(Perl_ck_null), /* leaveloop */ - MEMBER_TO_FPTR(Perl_ck_null), /* return */ + MEMBER_TO_FPTR(Perl_ck_return), /* return */ MEMBER_TO_FPTR(Perl_ck_null), /* last */ MEMBER_TO_FPTR(Perl_ck_null), /* next */ MEMBER_TO_FPTR(Perl_ck_null), /* redo */ |