diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-12 14:21:43 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-12 14:21:43 +0000 |
| commit | 28a2fe02c80f3177153f2628572bf19cfb2cdcb6 (patch) | |
| tree | 519e67863a3465b81c5f69155a0b4d593c726bf5 /perl-install/printer | |
| parent | fc6a72175bf8ee7aed801e4003991e8e9c67c304 (diff) | |
| download | drakx-backup-do-not-use-28a2fe02c80f3177153f2628572bf19cfb2cdcb6.tar drakx-backup-do-not-use-28a2fe02c80f3177153f2628572bf19cfb2cdcb6.tar.gz drakx-backup-do-not-use-28a2fe02c80f3177153f2628572bf19cfb2cdcb6.tar.bz2 drakx-backup-do-not-use-28a2fe02c80f3177153f2628572bf19cfb2cdcb6.tar.xz drakx-backup-do-not-use-28a2fe02c80f3177153f2628572bf19cfb2cdcb6.zip | |
kill set_prefix()
Diffstat (limited to 'perl-install/printer')
| -rw-r--r-- | perl-install/printer/main.pm | 4 |
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); |