diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-29 10:48:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-29 10:48:08 +0000 |
| commit | 5991aeb0c7fe3b8eb3db7c31cd1aa47b8799e732 (patch) | |
| tree | f41db9e1b00686438a8fe738102c2d4b9ab4b041 | |
| parent | c4d8573177af0d9380c9c5a0a67a3c9f9ef05d30 (diff) | |
| download | drakx-backup-do-not-use-5991aeb0c7fe3b8eb3db7c31cd1aa47b8799e732.tar drakx-backup-do-not-use-5991aeb0c7fe3b8eb3db7c31cd1aa47b8799e732.tar.gz drakx-backup-do-not-use-5991aeb0c7fe3b8eb3db7c31cd1aa47b8799e732.tar.bz2 drakx-backup-do-not-use-5991aeb0c7fe3b8eb3db7c31cd1aa47b8799e732.tar.xz drakx-backup-do-not-use-5991aeb0c7fe3b8eb3db7c31cd1aa47b8799e732.zip | |
use "our" instead of "use vars"
| -rw-r--r-- | perl-install/pkgs.pm | 9 |
1 files 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 ? |