support optional crypt() with PERL_OBJECT

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

diff --git a/regcomp.h b/regcomp.h
index 727a4e5..526b885 100644 (file)
--- a/regcomp.h
+++ b/regcomp.h
@@ -183,7 +183,7 @@ struct regnode_2 {
 #define        UCHARAT(p)      ((int)*(p)&CHARMASK)
 #endif
 #else /* lint */
-#define UCHARAT(p)     regdummy
+#define UCHARAT(p)     PL_regdummy
 #endif /* lint */
 
 #define        FAIL(m)         croak    ("/%.127s/: %s",  PL_regprecomp,m)