diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 1998-08-10 09:58:22 -0700 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 1998-09-20 15:39:41 +0000 |
| commit | 409b62f359e0287f3d97f026274a0705bb16e476 (patch) | |
| tree | 859d7a26a230e81fb8cb9bca7ba1bd35b93712a7 | |
| parent | aca803df632a065e85ab6e5ae135630607e531d3 (diff) | |
| download | perl-409b62f359e0287f3d97f026274a0705bb16e476.tar.gz | |
fix for unpack('u') failures on OS/390
Message-Id: <9808102358.AA10616@forte.com>
p4raw-id: //depot/maint-5.005/perl@1793
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |