Change 34118: [PATCH] threads::shared 1.24 (still more)

[Steve Hay]

Change 34118 by [EMAIL PROTECTED] on 2008/07/10 14:45:27

        Subject: [PATCH] threads::shared 1.24 (still more)
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Thu, 10 Jul 2008 10:29:14 -0400
        Message-ID: <[EMAIL PROTECTED]>
        
        Fixes warnings introduced by previous patch.

Affected files ...

... //depot/perl/ext/threads/shared/shared.xs#77 edit

Differences ...

==== //depot/perl/ext/threads/shared/shared.xs#77 (text) ====
Index: perl/ext/threads/shared/shared.xs
--- perl/ext/threads/shared/shared.xs#76~34117~ 2008-07-10 06:16:30.000000000 
-0700
+++ perl/ext/threads/shared/shared.xs   2008-07-10 07:45:27.000000000 -0700
@@ -876,7 +876,9 @@
         I32 len = mg->mg_len;
         assert ( mg->mg_ptr != 0 );
         if (mg->mg_len == HEf_SVKEY) {
-            key = SvPV((SV *)mg->mg_ptr, len);
+            STRLEN slen;
+            key = SvPV((SV *)mg->mg_ptr, slen);
+            len = slen;
             if (SvUTF8((SV *)mg->mg_ptr)) {
                 len = -len;
             }
@@ -930,7 +932,9 @@
         I32 len = mg->mg_len;
         assert ( mg->mg_ptr != 0 );
         if (mg->mg_len == HEf_SVKEY) {
-            key = SvPV((SV *)mg->mg_ptr, len);
+            STRLEN slen;
+            key = SvPV((SV *)mg->mg_ptr, slen);
+            len = slen;
             if (SvUTF8((SV *)mg->mg_ptr)) {
                 len = -len;
             }
@@ -965,7 +969,9 @@
         I32 len = mg->mg_len;
         assert ( mg->mg_ptr != 0 );
         if (mg->mg_len == HEf_SVKEY) {
-            key = SvPV((SV *)mg->mg_ptr, len);
+            STRLEN slen;
+            key = SvPV((SV *)mg->mg_ptr, slen);
+            len = slen;
             if (SvUTF8((SV *)mg->mg_ptr)) {
                 len = -len;
             }
@@ -1287,7 +1293,9 @@
             exists = av_exists((AV*) sobj, SvIV(index));
         } else {
             I32 len;
-            char *key = SvPVutf8(index, len);
+            STRLEN slen;
+            char *key = SvPVutf8(index, slen);
+            len = slen;
             if (SvUTF8(index)) {
                 len = -len;
             }
End of Patch.