summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 3f4831ed4..28a6446d6 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -563,7 +563,7 @@ sub loadSavePackagesOnFloppy {
my $choice = $o->ask_from_listf('',
_("Please choose load or save package selection on floppy.
The format is the same as auto_install generated floppies."),
- sub { translate($_[0]{text}) },
+ sub { $_[0]{text} },
[ { text => _("Load from floppy"), code => sub {
while (1) {
my $w = $o->wait_message(_("Package selection"), _("Loading from floppy"));
@@ -587,6 +587,7 @@ The format is the same as auto_install generated floppies."),
log::l("save package selection to floppy");
install_any::g_default_packages($o, 'quiet');
} },
+ { text => _("Cancel") },
]);
$choice->{code} and $choice->{code}();
}