summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-25 16:22:18 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-25 16:22:18 +0000
commit07cfbe49efa16539739dbb312ebe81ab2c81b87d (patch)
treecbad47b03620d1a267663791f7ef905c61478102 /perl-install/printerdrake.pm
parent8e690ad57bb02fe2bd838aa60b80774149971047 (diff)
downloaddrakx-07cfbe49efa16539739dbb312ebe81ab2c81b87d.tar
drakx-07cfbe49efa16539739dbb312ebe81ab2c81b87d.tar.gz
drakx-07cfbe49efa16539739dbb312ebe81ab2c81b87d.tar.bz2
drakx-07cfbe49efa16539739dbb312ebe81ab2c81b87d.tar.xz
drakx-07cfbe49efa16539739dbb312ebe81ab2c81b87d.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 08c79ee94..de5a99b6a 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -35,9 +35,9 @@ sub setup_local($$$) {
$_->{val}{DESCRIPTION} and push @str, _("A printer, model \"%s\", has been detected on ",
$_->{val}{DESCRIPTION}) . $_->{port};
}
- if (@str) {
+ if (!$::expert && @str) {
@port = map { $_->{port} } grep { $_->{val}{DESCRIPTION} } @parport;
- !$::expert && @port > 0 and $in = undef;
+ @port > 0 and $in = undef;
} else {
@port = detect_devices::whatPrinterPort();
}