From: Vincent Pit Date: Sun, 5 Jun 2016 18:33:33 +0000 (+0200) Subject: Fix XSH_ASSERT() on perl 5.8.0 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVPIT-XSHelpers.git;a=commitdiff_plain;h=18554226f6bc339e926df3740b5bf54a6a6ea2ca Fix XSH_ASSERT() on perl 5.8.0 PERL_DEB() is missing from this old perl. --- diff --git a/xsh/util.h b/xsh/util.h index 599dbf4..5004723 100644 --- a/xsh/util.h +++ b/xsh/util.h @@ -13,7 +13,12 @@ # 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__), \