diff options
| author | Andy Lester <andy@petdance.com> | 2005-12-01 08:24:51 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-02 09:26:48 +0000 |
| commit | 2d3e09341b1708b9d4e0982daf4d89d075ef0973 (patch) | |
| tree | ae7f0df55445f6559fbd9ec90b695e61c64e9829 | |
| parent | 9ec09037ae8e67de09c4ba1f6d36d7c974d4071b (diff) | |
| download | perl-2d3e09341b1708b9d4e0982daf4d89d075ef0973.tar.gz | |
Signs, signs, everywhere a sign
Message-ID: <20051201202451.GI22713@petdance.com>
p4raw-id: //depot/perl@26242
| -rw-r--r-- | pp_pack.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2033,7 +2033,7 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c if (symptr->howlen == e_star) Perl_croak(aTHX_ "'P' must have an explicit size in unpack"); EXTEND(SP, 1); - if (sizeof(char*) <= strend - s) { + if (s + sizeof(char*) <= strend) { char *aptr; SHIFT_VAR(utf8, s, strend, aptr, datumtype); DO_BO_UNPACK_PC(aptr); @@ -2125,9 +2125,9 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c * (and just as fast as doing character arithmetic) */ if (PL_uudmap['M'] == 0) { - int i; + size_t i; - for (i = 0; i < sizeof(PL_uuemap); i += 1) + for (i = 0; i < sizeof(PL_uuemap); ++i) PL_uudmap[(U8)PL_uuemap[i]] = i; /* * Because ' ' and '`' map to the same value, |