avoid warning (from Doug MacEachern)

[perl5.git] / regcomp.h

diff --git a/regcomp.h b/regcomp.h
index 61726bb..7bddc1b 100644 (file)
--- a/regcomp.h
+++ b/regcomp.h
@@ -241,14 +241,14 @@ struct regnode_2 {
 #define        FAIL(m) \
     STMT_START {                                                       \
        if (!SIZE_ONLY)                                                 \
-           SAVEDESTRUCTOR(S_clear_re,(void*)PL_regcomp_rx);            \
+           SAVEDESTRUCTOR(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(S_clear_re,(void*)PL_regcomp_rx);            \
+           SAVEDESTRUCTOR(clear_re,(void*)PL_regcomp_rx);              \
        S_re_croak2(aTHX_ "/%.127s/: ",pat,PL_regprecomp,m);            \
     } STMT_END