From d6ed9e5423700f460ef04b456b5beb5249faff92 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 14 Nov 2002 16:39:56 +0000 Subject: - printer::data : export all data structures - cleanups - all code is now runnable in strict mode --- perl-install/printer/data.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install/printer/data.pm') diff --git a/perl-install/printer/data.pm b/perl-install/printer/data.pm index 61ae3bff5..2e20db2b5 100644 --- a/perl-install/printer/data.pm +++ b/perl-install/printer/data.pm @@ -2,13 +2,16 @@ package printer::data; use strict; use common; +use vars qw(@ISA @EXPORT); + +@ISA = qw(Exporter); +@EXPORT = qw(%lprcommand %spoolers %spooler_inv %shortspooler_inv); + # BUG, FIXME : this was neither declered nor setted anywhere before : # maybe this should be swtiched : # $lprcommand{stuff} => $spoolers{stuff}{print_command} -our %lprcommand; - our %spoolers = ('ppq' => { 'help' => "/usr/bin/lphelp %s |", 'print_command' => 'lpr-pdq', -- cgit v1.2.1