From 839685f9f74d3b6cd1a8ad8f12b83b7fc63f56c9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 9 Aug 2004 03:04:25 +0000
Subject: flags is optional

---
 perl-install/fsedit.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 1990becd1..ddb848e32 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -94,8 +94,8 @@ sub lvms {
 }
 
 sub get_hds {
-    my ($flags, $o_in) = @_;
-    $flags ||= {};
+    my ($o_flags, $o_in) = @_;
+    my $flags = $o_flags || {};
     $flags->{readonly} && ($flags->{clearall} || $flags->{clear}) and die "conflicting flags readonly and clear/clearall";
 
     my @drives = detect_devices::hds();
-- 
cgit v1.2.1