Change 29492 by [EMAIL PROTECTED] on 2006/12/08 23:49:51
In Perl_fbm_instr(), no need to calculate the address of the table if
we're going to return anyway.
Affected files ...
... //depot/perl/util.c#592 edit
Differences ...
==== //depot/perl/util.c#592 (text) ====
Index: perl/util.c
--- perl/util.c#591~29489~ 2006-12-08 14:56:08.000000000 -0800
+++ perl/util.c 2006-12-08 15:49:51.000000000 -0800
@@ -680,12 +680,14 @@
return b;
}
- { /* Do actual FBM. */
+ /* Do actual FBM. */
+ if (littlelen > (STRLEN)(bigend - big))
+ return NULL;
+
+ {
register const unsigned char * const table = little + littlelen +
FBM_TABLE_OFFSET;
register const unsigned char *oldlittle;
- if (littlelen > (STRLEN)(bigend - big))
- return NULL;
--littlelen; /* Last char found by table lookup */
s = big + littlelen;
End of Patch.
