Support one-parameter unpack(), which unpacks $_.

p4raw-id: //depot/perl@18751

1 files changed, 2 insertions, 1 deletions

diff --git a/pp_pack.c b/pp_pack.c
index 44764541df..6f9abe1dce 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1606,7 +1606,8 @@ Perl_unpack_str(pTHX_ char *pat, register char *patend, register char *s, char *
 PP(pp_unpack)
 {
     dSP;
-    dPOPPOPssrl;
+    SV *right = (MAXARG > 1) ? POPs : GvSV(PL_defgv);
+    SV *left = POPs;
     I32 gimme = GIMME_V;
     STRLEN llen;
     STRLEN rlen;