diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-03 00:07:13 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-03 00:07:13 +0000 |
| commit | bab9c0ac4be68b8d3e7a915e21d06ed39d0fa563 (patch) | |
| tree | 433c7a34050655e49940106dcbae7bf42e930f98 /opcode.h | |
| parent | 35bc0dc84153b4a6ad4b24f4d9e7d25cc7a0fb97 (diff) | |
| download | perl-bab9c0ac4be68b8d3e7a915e21d06ed39d0fa563.tar.gz | |
Tidy up change #18751, so that the second parameter to unpack()
defaults to $_ at compile-time, instead of run-time (like all
other primitives that default to $_).
p4raw-link: @18751 on //depot/perl: 13dcffc60adeca175c32a1ea11ec8756d4853ad2
p4raw-id: //depot/perl@22047
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1254,7 +1254,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = { MEMBER_TO_FPTR(Perl_ck_rvconst), /* rv2hv */ MEMBER_TO_FPTR(Perl_ck_null), /* helem */ MEMBER_TO_FPTR(Perl_ck_null), /* hslice */ - MEMBER_TO_FPTR(Perl_ck_fun), /* unpack */ + MEMBER_TO_FPTR(Perl_ck_unpack), /* unpack */ MEMBER_TO_FPTR(Perl_ck_fun), /* pack */ MEMBER_TO_FPTR(Perl_ck_split), /* split */ MEMBER_TO_FPTR(Perl_ck_join), /* join */ |