From ddf97599f4e03d4c7fb5eed06b8746150c5f3ab5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 10 Feb 2001 10:19:11 +0000 Subject: (main): cleanup --- perl-install/printerdrake.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/printerdrake.pm') diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 998b2eef4..37560ecde 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -338,7 +338,7 @@ sub main($$$;$) { my ($queue, $continue) = ('', 1); while ($continue) { - if (!$::expert || !(scalar keys %{$printer->{configured} || {}})) { + if (!$::expert || %{$printer->{configured} || {}} == ()) { $queue = $printer->{want} || $in->ask_yesorno(_("Printer"), _("Would you like to configure a printer?"), 0) ? 'lp' : 'Done'; } else { -- cgit v1.2.1