diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-10-02 10:41:47 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-10-02 10:41:47 +0000 |
| commit | 7dc8614b9840346e53f135112b9fced82527dcbf (patch) | |
| tree | 91f6926b115b0d5dcafe916404699b184b63264a /perl-install | |
| parent | 5cb13bdecad5a9e707cc6a11f5082795da1b80e2 (diff) | |
| download | drakx-backup-do-not-use-7dc8614b9840346e53f135112b9fced82527dcbf.tar drakx-backup-do-not-use-7dc8614b9840346e53f135112b9fced82527dcbf.tar.gz drakx-backup-do-not-use-7dc8614b9840346e53f135112b9fced82527dcbf.tar.bz2 drakx-backup-do-not-use-7dc8614b9840346e53f135112b9fced82527dcbf.tar.xz drakx-backup-do-not-use-7dc8614b9840346e53f135112b9fced82527dcbf.zip | |
use functions to get rpmsrate levels
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 4 | ||||
| -rw-r--r-- | perl-install/pkgs.pm | 9 |
2 files changed, 9 insertions, 4 deletions
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index 75ae44ac7..7deee1fc4 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -403,10 +403,10 @@ sub choosePackages { my ($o) = @_; require pkgs; - add2hash_($o, { compssListLevel => $pkgs::rpmsrate_rate_default }); + add2hash_($o, { compssListLevel => pkgs::rpmsrate_rate_default() }); my $w = $o->wait_message('', N("Looking for available packages...")); - my $availableC = install::steps::choosePackages($o, $pkgs::rpmsrate_rate_max); + my $availableC = install::steps::choosePackages($o, pkgs::rpmsrate_rate_max()); require install::pkgs; diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 2372a576f..d866218ac 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -7,8 +7,13 @@ use run_program; use detect_devices; use log; -our $rpmsrate_rate_max = 5; # also defined in perl-URPM -our $rpmsrate_rate_default = 4; +sub rpmsrate_rate_max() { + 5; # also defined in perl-URPM +} + +sub rpmsrate_rate_default() { + 4; +} sub read_rpmsrate_raw { my ($file) = @_; |