diff options
| -rw-r--r-- | MDK/Common.pm.pl | 2 | ||||
| -rw-r--r-- | MDK/Common/Func.pm | 6 | ||||
| -rw-r--r-- | perl-MDK-Common.spec | 5 |
3 files changed, 9 insertions, 4 deletions
diff --git a/MDK/Common.pm.pl b/MDK/Common.pm.pl index 1227f91..3c08fee 100644 --- a/MDK/Common.pm.pl +++ b/MDK/Common.pm.pl @@ -71,7 +71,7 @@ use vars qw(@ISA @EXPORT $VERSION); #); # perl_checker: RE-EXPORT-ALL @EXPORT = map { @$_ } map { values %{'MDK::Common::' . $_ . 'EXPORT_TAGS'} } grep { /::$/ } keys %MDK::Common::; -$VERSION = "1.0.5"; +$VERSION = "1.1.0"; 1; EOF diff --git a/MDK/Common/Func.pm b/MDK/Common/Func.pm index caa5358..7ce9d5a 100644 --- a/MDK/Common/Func.pm +++ b/MDK/Common/Func.pm @@ -236,20 +236,20 @@ sub every(&@) { sub map_index(&@) { my $f = shift; my @v; local $::i = 0; - map { @v = &$f($::i); $::i++; @v } @_; + map { @v = $f->(); $::i++; @v } @_; } sub each_index(&@) { my $f = shift; local $::i = 0; foreach (@_) { - &$f($::i); + &$f->(); $::i++; } } sub grep_index(&@) { my $f = shift; my $v; local $::i = 0; - grep { $v = &$f($::i); $::i++; $v } @_; + grep { $v = $f->(); $::i++; $v } @_; } sub find_index(&@) { my $f = shift; diff --git a/perl-MDK-Common.spec b/perl-MDK-Common.spec index 80c8c25..f5e56c1 100644 --- a/perl-MDK-Common.spec +++ b/perl-MDK-Common.spec @@ -51,6 +51,11 @@ rm -rf $RPM_BUILD_ROOT # MODIFY IN THE CVS: cvs.mandrakesoft.com:/cooker soft/perl-MDK-Common %changelog +* Wed Apr 16 2003 Pixel <pixel@mandrakesoft.com> 1.1.0-1mdk +- MDK::Common::Func: map_index, each_index and grep_index do not pass $::i as +a parameter anymore (this breaks backward compatibility, but it is cleaner and +otherwise perl_checker doesn't handle it correctly) + * Fri Apr 11 2003 Pixel <pixel@mandrakesoft.com> 1.0.5-1mdk - many perl_checker enhancements: - allow 333 * `xxx` with no warning |