summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-29 10:48:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-29 10:48:08 +0000
commit5991aeb0c7fe3b8eb3db7c31cd1aa47b8799e732 (patch)
treef41db9e1b00686438a8fe738102c2d4b9ab4b041
parentc4d8573177af0d9380c9c5a0a67a3c9f9ef05d30 (diff)
downloaddrakx-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.pm9
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 ?