summaryrefslogtreecommitdiffstats
path: root/perl-install/printer
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-12 14:21:43 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-12 14:21:43 +0000
commit28a2fe02c80f3177153f2628572bf19cfb2cdcb6 (patch)
tree519e67863a3465b81c5f69155a0b4d593c726bf5 /perl-install/printer
parentfc6a72175bf8ee7aed801e4003991e8e9c67c304 (diff)
downloaddrakx-28a2fe02c80f3177153f2628572bf19cfb2cdcb6.tar
drakx-28a2fe02c80f3177153f2628572bf19cfb2cdcb6.tar.gz
drakx-28a2fe02c80f3177153f2628572bf19cfb2cdcb6.tar.bz2
drakx-28a2fe02c80f3177153f2628572bf19cfb2cdcb6.tar.xz
drakx-28a2fe02c80f3177153f2628572bf19cfb2cdcb6.zip
kill set_prefix()
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);