diff options
| -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(); |