In Perl_fbm_instr(), no need to calculate the address of the table if

we're going to return anyway.

p4raw-id: //depot/perl@29492

1 files changed, 5 insertions, 3 deletions

diff --git a/util.c b/util.c
index eefb5a5e87..358af393a3 100644
--- a/util.c
+++ b/util.c
@@ -680,12 +680,14 @@ Perl_fbm_instr(pTHX_ unsigned char *big, register unsigned char *bigend, SV *lit
 	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;