]> git.vpit.fr Git - perl/modules/VPIT-XSHelpers.git/commitdiff
Fix XSH_ASSERT() on perl 5.8.0 master
authorVincent Pit <perl@profvince.com>
Sun, 5 Jun 2016 18:33:33 +0000 (20:33 +0200)
committerVincent Pit <perl@profvince.com>
Sun, 5 Jun 2016 18:33:33 +0000 (20:33 +0200)
PERL_DEB() is missing from this old perl.

xsh/util.h

index 599dbf4407e4cd63fca47549e44e6dc1e04d21ee..500472364a3545615e9b38ecd5781d318a1ce177 100644 (file)
 # if XSH_HAS_PERL(5, 8, 9) || XSH_HAS_PERL(5, 9, 3)
 #  define XSH_ASSERT(C) assert(C)
 # else
 # if XSH_HAS_PERL(5, 8, 9) || XSH_HAS_PERL(5, 9, 3)
 #  define XSH_ASSERT(C) assert(C)
 # else
-#  define XSH_ASSERT(C) PERL_DEB( \
+#  ifdef PERL_DEB
+#   define XSH_DEB(X) PERL_DEB(X)
+#  else
+#   define XSH_DEB(X) (X)
+#  endif
+#  define XSH_ASSERT(C) XSH_DEB( \
    ((C) ? ((void) 0)           \
         : (Perl_croak_nocontext("Assertion %s failed: file \"" __FILE__  \
                                  "\", line %d", STRINGIFY(C), __LINE__), \
    ((C) ? ((void) 0)           \
         : (Perl_croak_nocontext("Assertion %s failed: file \"" __FILE__  \
                                  "\", line %d", STRINGIFY(C), __LINE__), \