From: Vincent Pit Date: Sun, 5 Jun 2016 18:44:33 +0000 (+0200) Subject: Fix the build on perl 5.8.0 X-Git-Tag: rt112246^2~7 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=c47d5c51367d1ad7d1dd0ebab3d11f83e9e7c19d Fix the build on perl 5.8.0 PERL_DEB() was not defined at that time. --- diff --git a/xsh/util.h b/xsh/util.h index dcc142c..2e40092 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__), \