/[[:alpha]/ now dies on unmatched [] instead of

"an unknown character class" (spotted by Tom Christiansen)

p4raw-id: //depot/cfgperl@5465

1 files changed, 6 insertions, 6 deletions

diff --git a/regcomp.c b/regcomp.c
index 271c20c8f6..7c6b761fd3 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2820,12 +2820,12 @@ S_regpposixcc(pTHX_ I32 value)
 			}
 			break;
 		    }
-		    if ((namedclass == OOB_NAMEDCLASS ||
-			 !(posixcc + skip + 2 < PL_regxend &&
-			   (posixcc[skip] == ':' &&
-			    posixcc[skip + 1] == ']'))))
-			Perl_croak(aTHX_ "Character class [:%.*s:] unknown",
-				   t - s - 1, s + 1); 
+		    if (namedclass == OOB_NAMEDCLASS ||
+			posixcc[skip] != ':' ||
+			posixcc[skip+1] != ']')
+			Perl_croak(aTHX_
+				   "Character class [:%.*s:] unknown",
+				   t - s - 1, s + 1);
 		} else if (ckWARN(WARN_REGEXP) && !SIZE_ONLY)
 		    /* [[=foo=]] and [[.foo.]] are still future. */
 		    Perl_warner(aTHX_ WARN_REGEXP,