From bfa63ae3b3cb2befe3cd729ddec81161eaac56cf Mon Sep 17 00:00:00 2001 From: Slaven Rezic Date: Tue, 14 Aug 2018 10:35:33 +0200 Subject: [PATCH] use only available debug flags (fix for RT #122307) --- defsubs_h.PL | 2 ++ 1 file changed, 2 insertions(+) diff --git a/defsubs_h.PL b/defsubs_h.PL index 236058f..dd3cf56 100644 --- a/defsubs_h.PL +++ b/defsubs_h.PL @@ -46,7 +46,9 @@ sub doconst my $sym = shift; my $l = length($sym); print OUT <<"END"; +#ifdef $sym newCONSTSUB(stash,"$sym",newSViv($sym)); av_push(export_ok,newSVpvn("$sym",$l)); +#endif END } -- 2.7.4