summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-03-17 18:28:37 +0000
committerFrancois Pons <fpons@mandriva.com>2000-03-17 18:28:37 +0000
commitc2291d42ccff39452769c2c5d1e62842765dcf7b (patch)
tree14ce67c307837e19500279e7d0133ac53933f329 /perl-install/standalone
parent3622540f67228fabb5399876b5af89f37cf461be (diff)
downloaddrakx-c2291d42ccff39452769c2c5d1e62842765dcf7b.tar
drakx-c2291d42ccff39452769c2c5d1e62842765dcf7b.tar.gz
drakx-c2291d42ccff39452769c2c5d1e62842765dcf7b.tar.bz2
drakx-c2291d42ccff39452769c2c5d1e62842765dcf7b.tar.xz
drakx-c2291d42ccff39452769c2c5d1e62842765dcf7b.zip
*** empty log message ***
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/printerdrake3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 2e7ed085d..4903e3bc4 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -21,6 +21,7 @@
use lib qw(/usr/lib/libDrakX);
use interactive;
+use printer;
use printerdrake;
use c;
@@ -42,6 +43,6 @@ my $f = "/usr/lib/rhs/rhs-printfilters";
my $in = vnew interactive('su');
-printerdrake::main('', printerdrake::getinfo(''), $in, sub { `urpmi --auto $_[0]` });
+printerdrake::main(eval { printer::getinfo('') } || {}, $in, sub { `urpmi --auto $_[0]` });
$in->exit(0);