From 5991aeb0c7fe3b8eb3db7c31cd1aa47b8799e732 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 29 Dec 2002 10:48:08 +0000 Subject: use "our" instead of "use vars" --- perl-install/pkgs.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index fe8445792..0f45ec00d 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -2,7 +2,6 @@ package pkgs; # $Id$ use diagnostics; use strict; -use vars qw(%preferred $limitMinTrans %compssListDesc); use MDK::Common::System; use URPM; @@ -17,12 +16,10 @@ use loopback; use c; - -my @preferred = qw(perl-GTK postfix gcc gcc-cpp gcc-c++ proftpd ghostscript-X vim-minimal kernel db1 db2 ispell-en Bastille-Curses-module nautilus libxpm4 zlib1 libncurses5 harddrake cups); -@preferred{@preferred} = (); +our %preferred = map { $_ => undef } qw(perl-GTK postfix gcc gcc-cpp gcc-c++ proftpd ghostscript-X vim-minimal kernel db1 db2 ispell-en Bastille-Curses-module nautilus libxpm4 zlib1 libncurses5 harddrake cups); #- lower bound on the left ( aka 90 means [90-100[ ) -%compssListDesc = ( +our %compssListDesc = ( 5 => N_("must have"), 4 => N_("important"), 3 => N_("very nice"), @@ -31,7 +28,7 @@ my @preferred = qw(perl-GTK postfix gcc gcc-cpp gcc-c++ proftpd ghostscript-X vi ); #- constant for small transaction. -$limitMinTrans = 8; +our $limitMinTrans = 8; #- package to ignore, typically in Application CD. OBSOLETED ? -- cgit v1.2.1