diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 12:01:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 12:01:32 +0000 |
| commit | ab2b02f3349dbf1960f2af5b43295d1ffa6be040 (patch) | |
| tree | e0e74cf29e340614b23f5a039ea9f522ed49a70f /MDK/Common/Math.pm | |
| parent | e14829cc6aa3bcb315e330b1bcb5f82676fb26d3 (diff) | |
| download | perl-MDK-Common-ab2b02f3349dbf1960f2af5b43295d1ffa6be040.tar perl-MDK-Common-ab2b02f3349dbf1960f2af5b43295d1ffa6be040.tar.gz perl-MDK-Common-ab2b02f3349dbf1960f2af5b43295d1ffa6be040.tar.bz2 perl-MDK-Common-ab2b02f3349dbf1960f2af5b43295d1ffa6be040.tar.xz perl-MDK-Common-ab2b02f3349dbf1960f2af5b43295d1ffa6be040.zip | |
- perl_checker: cleaner, more usable (via .perl_checker for -exclude's)
- perl_checker: more stricter syntax rules
- adapt *.pm's to those rules
Diffstat (limited to 'MDK/Common/Math.pm')
| -rw-r--r-- | MDK/Common/Math.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/MDK/Common/Math.pm b/MDK/Common/Math.pm index 9118449..faf700e 100644 --- a/MDK/Common/Math.pm +++ b/MDK/Common/Math.pm @@ -1,3 +1,5 @@ +package MDK::Common::Math; + =head1 NAME MDK::Common::Math - miscellaneous math functions @@ -109,7 +111,6 @@ L<MDK::Common> =cut -package MDK::Common::Math; use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $PRECISION $PI); @ISA = qw(Exporter); @@ -138,7 +139,7 @@ sub product { my $n = 1; $n *= $_ foreach @_; $n } sub factorize { my ($n) = @_; - my @r = (); + my @r; $n == 1 and return [ 1, 1 ]; for (my $k = 2; sqr($k) <= $n; $k++) { |