From e3a57d70d0b8c89c2c37833064dd4e2ecc302b58 Mon Sep 17 00:00:00 2001 From: Ed J Date: Sat, 20 Mar 2021 16:35:25 +0000 Subject: use PERL_VERSION_LE not 5.33+ PERL_VERSION_LT As ExtUtils::ParseXS is dual-life it needs to use stable Perl macros. --- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index 39f9df933b..16a87eeb60 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -912,7 +912,7 @@ EOF #-Wall: if there is no $self->{Full_func_name} there are no xsubs in this .xs #so 'file' is unused print Q(<<"EOF") if $self->{Full_func_name}; -##if PERL_VERSION_LT(5, 9, 0) +##if PERL_VERSION_LE(5, 8, 999) /* PERL_VERSION_LT is 5.33+ */ # char* file = __FILE__; ##else # const char* file = __FILE__; @@ -955,7 +955,7 @@ EOF print Q(<<"EOF") if ($self->{Overload}); # /* register the overloading (type 'A') magic */ -##if PERL_VERSION_LT(5, 9, 0) +##if PERL_VERSION_LE(5, 8, 999) /* PERL_VERSION_LT is 5.33+ */ # PL_amagic_generation++; ##endif # /* The magic for overload gets a GV* via gv_fetchmeth as */ -- cgit v1.2.1