summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-08-29 18:12:56 -0700
committerFather Chrysostomos <sprout@cpan.org>2011-08-29 18:20:16 -0700
commitd6d78e19334f3abcd2eb659205839eb1295aacbf (patch)
treeef100408f692009cc5b370bb1e9d556aa024412c /gv.c
parent58536d157b70c5107d3c064bf009dfb9b52919ce (diff)
downloadperl-d6d78e19334f3abcd2eb659205839eb1295aacbf.tar.gz
&CORE::unpack()
This commit allows &CORE::unpack to be called through references and via ampersand syntax. It moves the $_-handling code in pp_coreargs inside the parameter loop, so it can apply to the second parameter, not just the first. Consequently, a mkdir test has been added that ensures implicit $_ is not used for mkdir’s second argument; i.e., that the $_-handling code’s if() condition is correct.
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index 8b53b94acf..47518127ac 100644
--- a/gv.c
+++ b/gv.c
@@ -1363,7 +1363,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
case KEY_stat:
case KEY_system:
case KEY_truncate: case KEY_unlink:
- case KEY_unpack: case KEY_unshift:
+ case KEY_unshift:
case KEY_values: case KEY_write:
ampable = FALSE;
}