From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 26 Apr 2003 04:36:03 +0000 (+0000)
Subject: Integrate:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=73b5735c85106e9c6a58cea663a53d49569a9bdd;p=p5sagit%2Fp5-mst-13.2.git

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