summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm11
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 4081b9721..0744f0738 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -236,12 +236,11 @@ sub setup_gsdriver_lpr($$$;$) {
do {
$printer->{DBENTRY} ||= $printer::thedb_gsdriver{$printer->{GSDRIVER}}{ENTRY};
eval { $printer->{DBENTRY} = $printer::descr_to_db{
- $in->ask_from_list_with_help_(_("Configure Printer"),
- _("What type of printer do you have?"),
- [ @printer::entry_db_description ],
- { %printer::descr_to_help },
- $printer::db_to_descr{$printer->{DBENTRY}},
- )
+ $in->ask_from_list_(_("Configure Printer"),
+ _("What type of printer do you have?"),
+ [ @printer::entry_db_description ],
+ $printer::db_to_descr{$printer->{DBENTRY}},
+ { %printer::descr_to_help })
};
}; $@ =~ /^ask_from_list cancel/ and return;