diff options
author | Ed J <mohawk2@users.noreply.github.com> | 2021-03-20 16:35:25 +0000 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2021-03-24 08:41:56 -0400 |
commit | e3a57d70d0b8c89c2c37833064dd4e2ecc302b58 (patch) | |
tree | 3a6008f66a9c3580bfd65534b7c6c8a8ce13a1d3 | |
parent | 3e25f6d2dce9289bf3894d673f992195fb530d8e (diff) | |
download | perl-e3a57d70d0b8c89c2c37833064dd4e2ecc302b58.tar.gz |
use PERL_VERSION_LE not 5.33+ PERL_VERSION_LT
As ExtUtils::ParseXS is dual-life it needs to use stable Perl macros.
-rw-r--r-- | dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 4 |
1 files 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 */ |