Integrate:

[ 19340]
Caught by Mark Lutz in UNICOS: A declaration cannot appear
after an executable statement in a block.
p4raw-link: @19340 on //depot/maint-5.8/perl: 3006777dda4086b50e9a4bf2cf86b9fcf7566894

p4raw-id: //depot/perl@19341
p4raw-integrated: from //depot/maint-5.8/perl@19337 'merge in'
	pp_pack.c (@19011..)

diff --git a/pp_pack.c b/pp_pack.c
index 4752e66..5c05b7a 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -877,11 +877,11 @@ S_unpack_rec(pTHX_ register tempsym_t* symptr, register char *s, char *strbeg, c
                }
            }
            else {
+               short ashort;
                 if (len && unpack_only_one)
                     len = 1;
                EXTEND(SP, len);
                EXTEND_MORTAL(len);
-               short ashort;
                while (len-- > 0) {
                    COPYNN(s, &ashort, sizeof(short));
                    s += sizeof(short);