From 9e87d0328b02df29fde03ce36eba561d25e505ca Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 15 Nov 1999 17:00:32 +0000 Subject: *** empty log message *** --- perl-install/install_steps_interactive.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index d1c789056..f01463aff 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -525,8 +525,8 @@ wish to access and any applicable user name and password."), my $action; my @action = qw(ascii ps both done); my %action = ( - ascii => _("Yes, print ascii test page"), - ps => _("Yes, print postscript test page"), + ascii => _("Yes, print ASCII test page"), + ps => _("Yes, print PostScript test page"), both => _("Yes, print both test pages"), done => _("No"), ); @@ -887,13 +887,13 @@ sub miscellaneous { !$::beginner || $clicked and $o->ask_from_entries_ref('', _("Miscellaneous questions"), - [ _("Do you have a laptop?"), - _("Use hard drive optimizations?"), + [ _("Is this machine a laptop?"), + _("Use hard drive optimisations?"), _("Choose security level"), - _("Precise ram size if needed (found %d MB)", availableRam / 1024), + _("Precise RAM size if needed (found %d MB)", availableRam / 1024), ], [ { val => \$u->{LAPTOP}, type => 'bool' }, - { val => \$u->{HDPARM}, type => 'bool', text => _("(may cause disk problems)") }, + { val => \$u->{HDPARM}, type => 'bool', text => _("(may cause data corruption)") }, { val => \$s, list => [ map { $l{$_} } ikeys %l ], not_edit => 1 }, \$u->{memsize}, ], @@ -974,7 +974,7 @@ sub load_module { my @options; my $l = $o->ask_from_list('', - _("What %s card do you have?", $type), + _("Which %s driver should I try?", $type), [ modules::text_of_type($type) ]) or return; my $m = modules::text2driver($l); @@ -1036,7 +1036,7 @@ sub setup_thiskind { my $msg = @l ? [ _("Found %s %s interfaces", join(", ", map { $_->[0] } @l), $type), _("Do you have another one?") ] : - _("Do you have an %s interface?", $type); + _("Do you have any %s interface?", $type); my $opt = [ __("Yes"), __("No") ]; push @$opt, __("See hardware info") if $::expert; -- cgit v1.2.1