From: Peter Prymmer <PPrymmer@factset.com>
Date: Mon, 10 Aug 1998 16:58:22 +0000 (-0700)
Subject: fix for unpack('u') failures on OS/390
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=409b62f359e0287f3d97f026274a0705bb16e476;p=p5sagit%2Fp5-mst-13.2.git

fix for unpack('u') failures on OS/390

Message-Id: <9808102358.AA10616@forte.com>

p4raw-id: //depot/maint-5.005/perl@1793
---

diff --git a/pp.c b/pp.c
index 35b1552..1320486 100644
--- a/pp.c
+++ b/pp.c
@@ -3574,7 +3574,7 @@ PP(pp_unpack)
 		char hunk[4];
 
 		hunk[3] = '\0';
-		len = (*s++ - ' ') & 077;
+		len = uudmap[*s++] & 077;
 		while (len > 0) {
 		    if (s < strend && ISUUCHAR(*s))
 			a = uudmap[*s++] & 077;