This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In UNICOS division yada yada.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 5 Sep 2001 23:27:57 +0000 (23:27 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 5 Sep 2001 23:27:57 +0000 (23:27 +0000)
p4raw-id: //depot/perl@11902

t/op/override.t

index d24bdee..db94ed0 100755 (executable)
@@ -47,7 +47,7 @@ print "not " unless $r eq "5.6";
 print "ok 6\n";
 
 require v5.6;
-print "not " unless $r == 5.006 && $r eq "\x05\x06";
+print "not " unless abs($r - 5.006) < 0.001 && $r eq "\x05\x06";
 print "ok 7\n";
 
 eval "use Foo";