summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/printerdrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/printerdrake')
-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);