diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-06-18 16:53:59 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-06-22 12:28:58 +0000 |
| commit | d0b2dd844be335e164b2ecfe0ede82808372fbba (patch) | |
| tree | cb2f18b9567a8685019558c9c7d5b2c8cb71c981 /ext | |
| parent | 78cd8b71ec0d7665c422181192afa2819a5d887d (diff) | |
| download | perl-d0b2dd844be335e164b2ecfe0ede82808372fbba.tar.gz | |
Storable signedness nit
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <40D3AAC7.6030407@mac.com>
Date: Fri, 18 Jun 2004 21:53:59 -0500
p4raw-id: //depot/perl@22968
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Storable/Storable.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 9a7662f677..0a909f62d2 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -5808,14 +5808,14 @@ static SV *do_retrieve( of all scalars, so that any new string also has this. */ - I32 len32 = length + 1; + STRLEN klen_tmp = length + 1; bool is_utf8 = TRUE; /* Just casting the &klen to (STRLEN) won't work well if STRLEN and I32 are of different widths. --jhi */ asbytes = (char*)bytes_from_utf8((U8*)orig, - &len32, + &klen_tmp, &is_utf8); if (is_utf8) { CROAK(("Frozen string corrupt - contains characters outside 0-255")); @@ -5830,8 +5830,8 @@ static SV *do_retrieve( SvUPGRADE(in, SVt_PV); SvPOK_on(in); SvPVX(in) = asbytes; - SvLEN(in) = len32; - SvCUR(in) = len32 - 1; + SvLEN(in) = klen_tmp; + SvCUR(in) = klen_tmp - 1; } } #endif |