From 28a2fe02c80f3177153f2628572bf19cfb2cdcb6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 12 Nov 2002 14:21:43 +0000
Subject: kill set_prefix()

---
 perl-install/printer/main.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install/printer')

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);
-- 
cgit v1.2.1