diff options
| author | Dorner Thomas <tdorner@amadeus.net> | 2003-12-17 16:41:17 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-20 22:56:24 +0000 |
| commit | 1a6a79b784525259ef3f326dcae7b68a3aaebb75 (patch) | |
| tree | 1279f9c237e39260de78ce9ed0e7317e9c35973c /t/base | |
| parent | a18b03821cf93f26cfdbfc7f3fa4c6617a44f121 (diff) | |
| download | perl-1a6a79b784525259ef3f326dcae7b68a3aaebb75.tar.gz | |
Perl 5.8.3 patches from the BS2000 port
Message-ID: <6727B1DACFCDD311A757009027CA8D69044B673A@Ex02.inhouse.start.de>
p4raw-id: //depot/perl@21938
Diffstat (limited to 't/base')
| -rw-r--r-- | t/base/num.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/base/num.t b/t/base/num.t index ccabe0734b..f91528169e 100644 --- a/t/base/num.t +++ b/t/base/num.t @@ -163,7 +163,10 @@ $a = 123.456; "$a"; print $a eq "123.456" ? "ok 44\n" : "not ok 44 # $a\n"; $a = 1e34; "$a"; -print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n"; +unless ($^O eq 'posix-bc') +{ 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"; } # see bug #15073 |