summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-09 03:04:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-09 03:04:25 +0000
commit839685f9f74d3b6cd1a8ad8f12b83b7fc63f56c9 (patch)
tree0f1e0ec4843baacf2798998524c6664e0667a264 /perl-install
parent6bc41c18be44b8a6d8abf8cbc40be9af2c31e9aa (diff)
downloaddrakx-839685f9f74d3b6cd1a8ad8f12b83b7fc63f56c9.tar
drakx-839685f9f74d3b6cd1a8ad8f12b83b7fc63f56c9.tar.gz
drakx-839685f9f74d3b6cd1a8ad8f12b83b7fc63f56c9.tar.bz2
drakx-839685f9f74d3b6cd1a8ad8f12b83b7fc63f56c9.tar.xz
drakx-839685f9f74d3b6cd1a8ad8f12b83b7fc63f56c9.zip
flags is optional
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fsedit.pm4
1 files changed, 2 insertions, 2 deletions
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();