This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Typo fix.
authorAbigail <abigail@abigail.be>
Tue, 24 Apr 2007 00:48:26 +0000 (02:48 +0200)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Tue, 24 Apr 2007 06:01:41 +0000 (06:01 +0000)
Message-ID: <20070423224826.GC544@abigail.nl>

p4raw-id: //depot/perl@31048

t/base/num.t

index ffad5d5..06eea52 100644 (file)
@@ -164,7 +164,7 @@ print $a eq "123.456" ? "ok 44\n" : "not ok 44 # $a\n";
 
 $a = 1e34; "$a";
 unless ($^O eq 'posix-bc')
-{ print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n"; }
+{ print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n"; }
 else
 { print "ok 45 # skipped on $^O\n"; }