From f919742bfe11cea0b208686404d6a211c96f5aa3 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 26 Nov 2001 16:35:31 +0000
Subject: new features for new mcc

---
 perl-install/common.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'perl-install/common.pm')

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 :(
 #-######################################################################################
-- 
cgit v1.2.1