Change 29489 by [EMAIL PROTECTED] on 2006/12/08 22:56:08
Perl_screaminstr() must be called with littlestr as a PVBM.
Affected files ...
... //depot/perl/util.c#591 edit
Differences ...
==== //depot/perl/util.c#591 (text) ====
Index: perl/util.c
--- perl/util.c#590~29486~ 2006-12-08 13:09:57.000000000 -0800
+++ perl/util.c 2006-12-08 14:56:08.000000000 -0800
@@ -754,6 +754,8 @@
register const unsigned char *littleend;
I32 found = 0;
+ assert(SvTYPE(littlestr) == SVt_PVBM);
+
if (*old_posp == -1
? (pos = PL_screamfirst[BmRARE(littlestr)]) < 0
: (((pos = *old_posp), pos += PL_screamnext[pos]) == 0)) {
End of Patch.
