diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-09 03:04:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-09 03:04:25 +0000 |
| commit | 839685f9f74d3b6cd1a8ad8f12b83b7fc63f56c9 (patch) | |
| tree | 0f1e0ec4843baacf2798998524c6664e0667a264 /perl-install | |
| parent | 6bc41c18be44b8a6d8abf8cbc40be9af2c31e9aa (diff) | |
| download | drakx-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.pm | 4 |
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(); |