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) = @_;