From e64bca473d6d5b8d3544940e85c889fab1e89d29 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 17 Dec 2004 12:12:01 +0000
Subject: packdrake changed a little, ensuring that if we ask no modules it
 doesn't cause havoc

---
 perl-install/modules.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 5a1daaccc..b92a2b5d0 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -277,7 +277,7 @@ sub extract_modules {
     eval {
 	require packdrake;
 	my $packer = new packdrake($cz, quiet => 1);
-	$packer->extract_archive($dir, map { name2file($_) } @modules);
+	$packer->extract_archive($dir, map { name2file($_) } @modules) if @modules;
 	map { $dir . '/' . name2file($_) } @modules;
     };
 }
-- 
cgit v1.2.1