This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use cBOOL() instead of ? TRUE : FALSE
[perl5.git] / regexp.h
index ed8c7fe..601a214 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -270,7 +270,7 @@ and check for NULL.
 */
 
 #define SvRX(sv)   (Perl_get_re_arg(aTHX_ sv))
-#define SvRXOK(sv) (Perl_get_re_arg(aTHX_ sv) ? TRUE : FALSE)
+#define SvRXOK(sv) cBOOL(Perl_get_re_arg(aTHX_ sv))
 
 
 /* Flags stored in regexp->extflags