mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

XS-APItest: use PERL_VERSION_GE helper

Browse Source 
Also adjust t/xsub_h.t to use $^V.
This commit is contained in:
☢ ℕicolas ℝ 2020-08-04 14:09:28 -06:00
parent d7ced5c381
commit 4a88c3486c
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ext/XS-APItest/APItest.pm
View File

@ -5,7 +5,7 @@ use strict;
use warnings;
use Carp;
our $VERSION = '1.10';
our $VERSION = '1.11';
require XSLoader;

2
ext/XS-APItest/APItest.xs
View File

@ -2014,7 +2014,7 @@ test_share_unshare_pvn(input)
OUTPUT:
RETVAL
#if PERL_VERSION >= 9
#if PERL_VERSION_GE(5,9,0)
bool
refcounted_he_exists(key, level=0)

2
ext/XS-APItest/t/xsub_h.t
View File

@ -117,7 +117,7 @@ foreach $XS_VERSION (undef, @versions) {
is_deeply([XS_APIVERSION_valid("Pie")], [], "XS_APIVERSION_BOOTCHECK passes");
is(eval {XS_APIVERSION_invalid("Pie"); 1}, undef,
"XS_APIVERSION_BOOTCHECK croaks for an invalid version");
like($@, qr/Perl API version v1.0.16 of Pie does not match v5\.\d+\.\d+/,
like($@, qr/Perl API version v1.0.16 of Pie does not match \Q$^V\E/a,
"expected error");
my @xsreturn;