Change 27803: S_glob_2inpuv() did not check if lenp was NULL. Oops.

[Nicholas Clark]

Change 27803 by [EMAIL PROTECTED] on 2006/04/14 16:43:03

         S_glob_2inpuv() did not check if lenp was NULL. Oops.

Affected files ...

... //depot/perl/sv.c#1242 edit

Differences ...

==== //depot/perl/sv.c#1242 (text) ====
Index: perl/sv.c
--- perl/sv.c#1241~27801~       2006-04-14 09:11:19.000000000 -0700
+++ perl/sv.c   2006-04-14 09:43:03.000000000 -0700
@@ -1738,7 +1738,11 @@
           can tail call us and return true.  */
        return (char *) 1;
     } else {
-       return SvPV(buffer, *len);
+       assert(SvPOK(buffer));
+       if (len) {
+           *len = SvCUR(buffer);
+       }
+       return SvPVX(buffer);
     }
 }
 
End of Patch.