summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-03-07 10:19:00 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-03-07 10:19:00 +0000
commit51cbb8aad9b16ac231d4902568d7a63847cb996c (patch)
tree73a5aa093bf7a6df5dc6ca7a0c042273cdcfe599 /perl-install/common.pm
parent26a387d5919bba9ccdb8a8447daa114204a997c4 (diff)
downloaddrakx-backup-do-not-use-51cbb8aad9b16ac231d4902568d7a63847cb996c.tar
drakx-backup-do-not-use-51cbb8aad9b16ac231d4902568d7a63847cb996c.tar.gz
drakx-backup-do-not-use-51cbb8aad9b16ac231d4902568d7a63847cb996c.tar.bz2
drakx-backup-do-not-use-51cbb8aad9b16ac231d4902568d7a63847cb996c.tar.xz
drakx-backup-do-not-use-51cbb8aad9b16ac231d4902568d7a63847cb996c.zip
no_comment
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index bd8413788..0e75369ce 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -115,8 +115,8 @@ sub touch {
sub map_index(&@) {
my $f = shift;
- my $v; local $::i = 0;
- map { $v = &$f($::i); $::i++; $v } @_;
+ my @v; local $::i = 0;
+ map { @v = &$f($::i); $::i++; @v } @_;
}
sub grep_index(&@) {
my $f = shift;