diff options
author | Abhijit Menon-Sen <ams@wiw.org> | 2003-10-07 19:51:35 +0000 |
---|---|---|
committer | Abhijit Menon-Sen <ams@wiw.org> | 2003-10-07 19:51:35 +0000 |
commit | f386e49277b57f6d42dd4f4526622f4325cbeb34 (patch) | |
tree | 8ab3635a3bfd504e67fc04625d17cd9d8018ffc0 /t | |
parent | 73220cd551d1f40d5bd6be89b18006cdde57f73b (diff) | |
download | perl-f386e49277b57f6d42dd4f4526622f4325cbeb34.tar.gz |
Minor tweaks to pod/perlsyn.pod (as suggested by Yves Orton),
sv.c (Tim Bunce), t/op/pow.t (John P. Linderman).
p4raw-id: //depot/perl@21420
Diffstat (limited to 't')
-rw-r--r-- | t/op/pow.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/op/pow.t b/t/op/pow.t index 4e89d22e6d..f6d752d868 100644 --- a/t/op/pow.t +++ b/t/op/pow.t @@ -12,12 +12,12 @@ my $bits_in_uv = int (0.001 + log (~0+1) / log 2); # 3**30 < 2**48, don't trust things outside that range on a Cray # Likewise other 3 should not overflow 48 bits if I did my sums right. -my @pow = ([3,30,1e-14], - [4,32,0], - [5,20,1e-14], - [2.5, 10,,1e-14], - [-2, 69,0], - [-3, 30, 1e-14], +my @pow = ([ 3, 30, 1e-14], + [ 4, 32, 0], + [ 5, 20, 1e-14], + [2.5, 10, 1e-14], + [ -2, 69, 0], + [ -3, 30, 1e-14], ); my $tests; $tests += $_->[1] foreach @pow; |