diff options
| -rw-r--r-- | perl-install/install_interactive.pm | 2 | ||||
| -rw-r--r-- | perl-install/modules.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm index f5fe63069..26cfbd4f8 100644 --- a/perl-install/install_interactive.pm +++ b/perl-install/install_interactive.pm @@ -146,7 +146,7 @@ When sure, press Ok.")) or return; if (!$readonly && ref($o) =~ /gtk/) { #- diskdrake only available in gtk for now require diskdrake; - $solutions{diskdrake} = [ 0, ($::beginner ? _("Expert mode"), _("Use diskdrake")), sub { partition_with_diskdrake($o, $hds, 'nowizard') } ]; + $solutions{diskdrake} = [ 0, ($::beginner ? _("Expert mode") : _("Use diskdrake")), sub { partition_with_diskdrake($o, $hds, 'nowizard') } ]; } $solutions{fdisk} = diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 5af4358dd..16058a0b1 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -373,7 +373,7 @@ sub remove_alias($) { sub when_load { my ($name, $type, @options) = @_; - add_alias('scsi_hostadapter', $name), load('sd_mod') if $type =~ /scsi/ || $type eq $type_aliases{scsi}; + add_alias('scsi_hostadapter', $name), eval { load('sd_mod') } if $type =~ /scsi/ || $type eq $type_aliases{scsi}; $conf{$name}{options} = join " ", @options if @options; } |