This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
refactor pp_stringify and pp_and
[perl5.git] / sv.h
diff --git a/sv.h b/sv.h
index 902cae7..35b360f 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1708,6 +1708,7 @@ Like sv_utf8_upgrade, but doesn't do magic on C<sv>.
 
 #define SvTRUE(sv)        ((sv) && (SvGMAGICAL(sv) ? sv_2bool(sv) : SvTRUE_common(sv, sv_2bool_nomg(sv))))
 #define SvTRUE_nomg(sv)   ((sv) && (                                SvTRUE_common(sv, sv_2bool_nomg(sv))))
+#define SvTRUE_NN(sv)              (SvGMAGICAL(sv) ? sv_2bool(sv) : SvTRUE_common(sv, sv_2bool_nomg(sv)))
 #define SvTRUE_common(sv,fallback) (                   \
       !SvOK(sv)                                                \
        ? 0                                             \