From bfa63ae3b3cb2befe3cd729ddec81161eaac56cf Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven.rezic@idealo.de>
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