/*
=for apidoc unpackstring
-The engine implementing unpack() Perl function.
+The engine implementing unpack() Perl function. C<unpackstring> puts the
+extracted list items on the stack and returns the number of elements.
+Issue C<PUTBACK> before and C<SPAGAIN> after the call to this function.
=cut */
PP(pp_unpack)
{
dSP;
- SV *right = (MAXARG > 1) ? POPs : GvSV(PL_defgv);
- SV *left = POPs;
+ dPOPPOPssrl;
I32 gimme = GIMME_V;
STRLEN llen;
STRLEN rlen;