From 923889728b1fbc379cd598191c0548690824b146 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 4 Sep 2000 22:43:47 +0000 Subject: no_comment --- perl-install/install_interactive.pm | 2 +- perl-install/modules.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') 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; } -- cgit v1.2.1