diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:37:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:37:11 +0000 |
| commit | 749daba8115512bb19567dc4404da035c583c7ab (patch) | |
| tree | c276380b7b91ed8f8f0cf0e8a9ea2cf3f817132d /MDK/Common/Math.pm | |
| parent | 3e374c857eccccc6929f86daea3da51e3dd6f7f1 (diff) | |
| download | perl-MDK-Common-749daba8115512bb19567dc4404da035c583c7ab.tar perl-MDK-Common-749daba8115512bb19567dc4404da035c583c7ab.tar.gz perl-MDK-Common-749daba8115512bb19567dc4404da035c583c7ab.tar.bz2 perl-MDK-Common-749daba8115512bb19567dc4404da035c583c7ab.tar.xz perl-MDK-Common-749daba8115512bb19567dc4404da035c583c7ab.zip | |
make it perl_checker compliant
Diffstat (limited to 'MDK/Common/Math.pm')
| -rw-r--r-- | MDK/Common/Math.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/Math.pm b/MDK/Common/Math.pm index a261433..c467150 100644 --- a/MDK/Common/Math.pm +++ b/MDK/Common/Math.pm @@ -128,7 +128,7 @@ sub sign { $_[0] <=> 0 } sub round { int($_[0] + 0.5) } sub round_up { my ($i, $r) = @_; $i = int $i; $i += $r - ($i + $r - 1) % $r - 1 } sub round_down { my ($i, $r) = @_; $i = int $i; $i -= $i % $r } -sub divide { my $d = int $_[0] / $_[1]; wantarray ? ($d, $_[0] % $_[1]) : $d } +sub divide { my $d = int $_[0] / $_[1]; wantarray() ? ($d, $_[0] % $_[1]) : $d } sub min { my $n = shift; $_ < $n and $n = $_ foreach @_; $n } sub max { my $n = shift; $_ > $n and $n = $_ foreach @_; $n } sub or_ { my $n = 0; $n ||= $_ foreach @_; $n } |