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..)

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_pack.c b/pp_pack.c
index 4752e667d7..5c05b7a660 100644
--- 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);