From 1d7968318f8b42a85da193ab658ea106e8ee47d3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 23 Mar 2012 19:50:53 +0000
Subject: (prepare_minimal_root) get rid of useless arg

(spot by perl_checker)
---
 perl-install/fs/any.pm           | 3 +--
 perl-install/install/install2.pm | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/fs/any.pm b/perl-install/fs/any.pm
index c84dc6a38..431a22531 100644
--- a/perl-install/fs/any.pm
+++ b/perl-install/fs/any.pm
@@ -88,8 +88,7 @@ sub create_minimal_files() {
     chmod 0666, "$::prefix/dev/null";
 }
 
-sub prepare_minimal_root {
-    my ($_all_hds) = @_;
+sub prepare_minimal_root() {
 
     fs::any::create_minimal_files();
 
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 0ef9a10ae..524bfc15d 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -176,7 +176,7 @@ sub formatPartitions {
 	eval { rm_rf("$::prefix/var/lib/rpm") };
     }
 
-    fs::any::prepare_minimal_root($o->{all_hds});
+    fs::any::prepare_minimal_root();
 
     install::any::screenshot_dir__and_move();
     install::any::move_compressed_image_to_disk($o);
-- 
cgit v1.2.1