diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-07-02 21:59:20 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 19:19:25 +0000 |
| commit | 2e8215110ed322ac9933ec21f1d5eacadf7b18e6 (patch) | |
| tree | 19c49238068e2aad0b12eb488630fe2ed94100b0 /pp_pack.c | |
| parent | 45ee47cb1378c6ab197f2fd2990dd53283edcaab (diff) | |
| download | perl-2e8215110ed322ac9933ec21f1d5eacadf7b18e6.tar.gz | |
Re: Fixed pack problem - sort of
Message-ID: <20010702205919.F59620@plum.flirble.org>
p4raw-id: //depot/perl@11107
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -1669,7 +1669,6 @@ PP(pp_pack) *--in = (unsigned char)(adouble - (next * 128)) | 0x80; if (in <= buf) /* this cannot happen ;-) */ DIE(aTHX_ "Cannot compress integer"); - in--; adouble = next; } while (adouble > 0); buf[sizeof(buf) - 1] &= 0x7f; /* clear continue bit */ |