summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-11-26 16:35:31 +0000
committerdamien <damien@mandriva.com>2001-11-26 16:35:31 +0000
commitf919742bfe11cea0b208686404d6a211c96f5aa3 (patch)
tree8341915ee7719f686585d0432e58f34463564ab7 /perl-install/common.pm
parent00aa18f86ba5bfa5b242f9e14eead5f061afa27f (diff)
downloaddrakx-f919742bfe11cea0b208686404d6a211c96f5aa3.tar
drakx-f919742bfe11cea0b208686404d6a211c96f5aa3.tar.gz
drakx-f919742bfe11cea0b208686404d6a211c96f5aa3.tar.bz2
drakx-f919742bfe11cea0b208686404d6a211c96f5aa3.tar.xz
drakx-f919742bfe11cea0b208686404d6a211c96f5aa3.zip
new features for new mcc
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 3dcacfb49..282112275 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -130,6 +130,14 @@ sub expand_symlinks_but_simple {
sub sync { &MDK::Common::System::sync }
+# Group the list by n. Returns a reference of lists of length n
+sub group_n_lm {
+ my $n = shift;
+ my @l;
+ push @l, [ splice(@_, 0, $n) ] while (@_);
+ @l
+}
+
#-######################################################################################
#- Wonderful perl :(
#-######################################################################################