summaryrefslogtreecommitdiffstats
path: root/perl-install/printer
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer')
-rw-r--r--perl-install/printer/main.pm4
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 907164ddb..77c365e7c 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -39,8 +39,6 @@ our %printer_type_inv = reverse %printer_type;
#------------------------------------------------------------------------------
-sub set_prefix($) { $prefix = $_[0] }
-
sub spooler {
# LPD is taken from the menu for the moment because the classic LPD is
# highly unsecure. Depending on how the GNU lpr development is going on
@@ -193,7 +191,7 @@ sub getinfo($) {
my $printer = {};
my @QUEUES;
- set_prefix($prefix);
+ $::prefix=$prefix;
# Initialize $printer data structure
resetinfo($printer);