Zero entries were skipped, fix from Adrian Goalby

[p5sagit/p5-mst-13.2.git] / regcomp.h

diff --git a/regcomp.h b/regcomp.h
index 3624917..34c5c25 100644 (file)
--- a/regcomp.h
+++ b/regcomp.h
@@ -269,20 +269,6 @@ struct regnode_charclass_class {
 #define UCHARAT(p)     PL_regdummy
 #endif /* lint */
 
-#define        FAIL(m) \
-    STMT_START {                                                       \
-       if (!SIZE_ONLY)                                                 \
-           SAVEDESTRUCTOR_X(clear_re,(void*)PL_regcomp_rx);            \
-       Perl_croak(aTHX_ "/%.127s/: %s",  PL_regprecomp,m);             \
-    } STMT_END
-
-#define        FAIL2(pat,m) \
-    STMT_START {                                                       \
-       if (!SIZE_ONLY)                                                 \
-           SAVEDESTRUCTOR_X(clear_re,(void*)PL_regcomp_rx);            \
-       S_re_croak2(aTHX_ "/%.127s/: ",pat,PL_regprecomp,m);            \
-    } STMT_END
-
 #define EXTRA_SIZE(guy) ((sizeof(guy)-1)/sizeof(struct regnode))
 
 #define REG_SEEN_ZERO_LEN      1