From d0b2dd844be335e164b2ecfe0ede82808372fbba Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Fri, 18 Jun 2004 16:53:59 -0500 Subject: [PATCH] Storable signedness nit From: "Craig A. Berry" Message-ID: <40D3AAC7.6030407@mac.com> Date: Fri, 18 Jun 2004 21:53:59 -0500 p4raw-id: //depot/perl@22968 --- ext/Storable/Storable.xs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 9a7662f..0a909f6 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 -- 2.7.4