Skip to content

Commit a7971fb

Browse files
committed
fix require tests: all versions up to 41.7 are valid
1 parent 80ea3a5 commit a7971fb

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

t/comp/require.t

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -86,7 +86,7 @@ print "# $@\nnot " if $@;
8686
print "ok ",$i++," - require v5 ignores sub named v5\n";
8787

8888
eval { require 10.0.2; };
89-
print "# $@\nnot " unless $@ =~ /^\QPerl v10.0.2 required\E/;
89+
print "# $@\nnot " if $@;
9090
print "ok ",$i++," - require 10.0.2\n";
9191

9292
my $ver = 5.005_63;
@@ -97,12 +97,12 @@ print "ok ",$i++," - require 5.005_63\n";
9797
# check inaccurate fp
9898
$ver = 10.2;
9999
eval { require $ver; };
100-
print "# $@\nnot " unless $@ =~ /^\QPerl v10.200.0 required\E/;
100+
print "# $@\nnot " if $@;
101101
print "ok ",$i++," - require 10.2\n";
102102

103103
$ver = 10.000_02;
104104
eval { require $ver; };
105-
print "# $@\nnot " unless $@ =~ /^\QPerl v10.0.20 required\E/;
105+
print "# $@\nnot " if $@;
106106
print "ok ",$i++," - require 10.000_02\n";
107107

108108
print "not " unless 5.5.1 gt v5.5;

0 commit comments

Comments
 (0)