diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-22 05:35:27 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-22 05:35:27 +0000 |
commit | dbe7b1772b1a5593767d19db4bfee18f47979155 (patch) | |
tree | 9de24bd360cb02d14983d4910785a21a282b6287 /t/comp | |
parent | e541f5e7702d28bc5ed83b5b23cf57d476b829cb (diff) | |
download | perl-dbe7b1772b1a5593767d19db4bfee18f47979155.tar.gz |
adjust for lost fp precision in require version check
p4raw-id: //depot/perl@5190
Diffstat (limited to 't/comp')
-rwxr-xr-x | t/comp/require.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/comp/require.t b/t/comp/require.t index 7af89322a6..cd97c55eda 100755 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -7,7 +7,7 @@ BEGIN { # don't make this lexical $i = 1; -print "1..18\n"; +print "1..19\n"; sub do_require { %INC = (); @@ -65,10 +65,10 @@ print "# $@\nnot " if $@; print "ok ",$i++,"\n"; # check inaccurate fp -#$ver = 10.2; -#eval { require $ver; }; -#print "# $@\nnot " unless $@ =~ /^Perl v10\.200\.0 required/; -#print "ok ",$i++,"\n"; +$ver = 10.2; +eval { require $ver; }; +print "# $@\nnot " unless $@ =~ /^Perl v10\.200\.0 required/; +print "ok ",$i++,"\n"; $ver = 10.000_02; eval { require $ver; }; |