From c75193289b79d4c0687aa6a597b51436568f8360 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 6 Aug 2000 00:38:57 +0000
Subject: no_comment

---
 perl-install/printerdrake.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/printerdrake.pm')

diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 827ef9a33..9d7349740 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -195,8 +195,7 @@ _("Extra Text options") => \$printer->{TEXTONLYOPTIONS},
 	printer::configure_queue($printer);
 	$printer->{complete} = 0;
 	
-	$action = ${{reverse %action}}{$in->ask_from_list('', _("Do you want to test printing?"),
-							  [ map { $action{$_} } @action ], $action{'done'})};
+	$action = $in->ask_from_list('', _("Do you want to test printing?"), sub { $action{$_[0]} }, \@action, 'done');
 
 	my @testpages;
 	push @testpages, "/usr/lib/rhs/rhs-printfilters/testpage.asc"
-- 
cgit v1.2.1