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 /embed.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 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2195,6 +2195,7 @@ #define ck_substr Perl_ck_substr #define ck_svconst Perl_ck_svconst #define ck_trunc Perl_ck_trunc +#define ck_unpack Perl_ck_unpack #define pp_aassign Perl_pp_aassign #define pp_abs Perl_pp_abs #define pp_accept Perl_pp_accept @@ -4687,6 +4688,7 @@ #define ck_substr(a) Perl_ck_substr(aTHX_ a) #define ck_svconst(a) Perl_ck_svconst(aTHX_ a) #define ck_trunc(a) Perl_ck_trunc(aTHX_ a) +#define ck_unpack(a) Perl_ck_unpack(aTHX_ a) #define pp_aassign() Perl_pp_aassign(aTHX) #define pp_abs() Perl_pp_abs(aTHX) #define pp_accept() Perl_pp_accept(aTHX) |