diff options
| author | John Peacock <jpeacock@rowman.com> | 2004-08-03 18:23:57 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-08-04 06:19:27 +0000 |
| commit | d7aa53827cc12fdf8a697328df844e16aaa58287 (patch) | |
| tree | 3cdfee90125a42052b481afa420cd15c46d7b005 /t | |
| parent | 1be326de458e100f1527bf44371fc6d90f6f67fe (diff) | |
| download | perl-d7aa53827cc12fdf8a697328df844e16aaa58287.tar.gz | |
Final version object core patch?
Message-ID: <411048BD.3080700@rowman.com>
p4raw-id: //depot/perl@23190
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/require.t | 2 | ||||
| -rwxr-xr-x | t/op/ver.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/t/comp/require.t b/t/comp/require.t index 6931146ce8..29f5436df7 100755 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -75,7 +75,7 @@ print "ok ",$i++,"\n"; # check inaccurate fp $ver = 10.2; eval { require $ver; }; -print "# $@\nnot " unless $@ =~ /^Perl v10\.200\.0 required/; +print "# $@\nnot " unless $@ =~ /^Perl v10\.200 required/; print "ok ",$i++,"\n"; $ver = 10.000_02; diff --git a/t/op/ver.t b/t/op/ver.t index 79c36b6bc5..e030ec1000 100755 --- a/t/op/ver.t +++ b/t/op/ver.t @@ -222,7 +222,7 @@ ok( $v eq "$]", qq{\$^V eq "\$]"}); $v = $revision + $version/1000 + $subversion/1000000; -ok( $v == $], "\$^V == \$] (numeric)" ); +ok( abs($v - $]) < 10**-8 , "\$^V == \$] (numeric)" ); SKIP: { skip("In EBCDIC the v-string components cannot exceed 2147483647", 6) |