summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-10 10:19:11 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-10 10:19:11 +0000
commitddf97599f4e03d4c7fb5eed06b8746150c5f3ab5 (patch)
tree75ef6eaede0c0b94f64f50dce67004079926d0c4 /perl-install/printerdrake.pm
parent1366ba7668973fede10bc34d0759b7cebd9d2099 (diff)
downloaddrakx-backup-do-not-use-ddf97599f4e03d4c7fb5eed06b8746150c5f3ab5.tar
drakx-backup-do-not-use-ddf97599f4e03d4c7fb5eed06b8746150c5f3ab5.tar.gz
drakx-backup-do-not-use-ddf97599f4e03d4c7fb5eed06b8746150c5f3ab5.tar.bz2
drakx-backup-do-not-use-ddf97599f4e03d4c7fb5eed06b8746150c5f3ab5.tar.xz
drakx-backup-do-not-use-ddf97599f4e03d4c7fb5eed06b8746150c5f3ab5.zip
(main): cleanup
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm2
1 files changed, 1 insertions, 1 deletions
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 {