diff options
| author | Alain Barbet <alian@cpan.org> | 2003-08-20 22:39:17 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-22 08:16:47 +0000 |
| commit | 53f3fd80bed2bdd648b835eb98b97cad129ac8ff (patch) | |
| tree | beb07a752d4ab6ff85eabf9376926ee82281d45f /t/op/pack.t | |
| parent | 19b49582fab193cc13bf58f05a1780c8211d4b7a (diff) | |
| download | perl-53f3fd80bed2bdd648b835eb98b97cad129ac8ff.tar.gz | |
Re: [perl #23463]: compiler version on sparc/netbsd
Message-ID: <3F43C055.6030709@jupiter.alianet>
p4raw-id: //depot/perl@20823
Diffstat (limited to 't/op/pack.t')
| -rwxr-xr-x | t/op/pack.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index 31e7b34d29..a0d8b7ade6 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -445,7 +445,7 @@ sub numbers_with_total { } else { $calc_sum = $total; # Shift into range by some multiple of the total - my $mult = int ($total / $max_p1); + my $mult = $max_p1 ? int ($total / $max_p1) : undef; # Need this to make sure that -1 + (~0+1) is ~0 (ie still integer) $calc_sum = $total - $mult; $calc_sum -= $mult * $max; |