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 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/fs/any.pm')

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();
 
-- 
cgit v1.2.1