diff options
author | Abigail <abigail@abigail.be> | 2007-04-24 02:48:26 +0200 |
---|---|---|
committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2007-04-24 06:01:41 +0000 |
commit | 0d746ee5c1be80219aec2680f655ad5be66ccdf0 (patch) | |
tree | a575a70cdca8aa88c5f8d1044b79b78dae974151 | |
parent | 1e6aeec812b843a7ede56e2466b96a7284b7f423 (diff) | |
download | perl-0d746ee5c1be80219aec2680f655ad5be66ccdf0.tar.gz |
Typo fix.
Message-ID: <20070423224826.GC544@abigail.nl>
p4raw-id: //depot/perl@31048
-rw-r--r-- | t/base/num.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/base/num.t b/t/base/num.t index ffad5d5584..06eea527f7 100644 --- a/t/base/num.t +++ b/t/base/num.t @@ -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"; } |