This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Storable signedness nit
authorCraig A. Berry <craigberry@mac.com>
Fri, 18 Jun 2004 21:53:59 +0000 (16:53 -0500)
committerNicholas Clark <nick@ccl4.org>
Tue, 22 Jun 2004 12:28:58 +0000 (12:28 +0000)
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

ext/Storable/Storable.xs

index 9a7662f..0a909f6 100644 (file)
@@ -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