From 822aaf5dc31ddcf1ad68f34087ea27f767c85c9e Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Fri, 21 Feb 2003 15:21:46 +0000 Subject: some code cleanup thx to titi & perl checker --- rpmdrake.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'rpmdrake.pm') diff --git a/rpmdrake.pm b/rpmdrake.pm index e05d6ba2..f679d3bf 100644 --- a/rpmdrake.pm +++ b/rpmdrake.pm @@ -261,7 +261,7 @@ sub mirrors { $url =~ m|\.\Q$_\E/| and $land = $_ foreach keys %u2l; $url =~ m|\W\Q$_\E/| and $land = $sites2countries{$_} foreach keys %sites2countries; each_index { $_ eq $land and $goodness ||= 100-$::i } (map { if_($tz =~ /^$_$/, @{$t2l{$_}}) } keys %t2l), @$us; - { url => $url, land => $u2l{$land} || N("United States"), goodness => $goodness + rand }; + { url => $url, land => $u2l{$land} || N("United States"), goodness => $goodness + rand() }; } else { () } } cat_($mirrorslist); unlink $mirrorslist; @@ -319,7 +319,7 @@ by Mandrake Linux Official Updates.")), return ''; $iter and $iter->free; } Gtk2->main_quit }) - } ([ N("Ok"), 1], [ N("Cancel"), 0 ])), + } ([ N("Ok"), 1 ], [ N("Cancel"), 0 ])), )); my %roots; $tree_model->append_set($roots{$_->{land}} ||= $tree_model->append_set(undef, [ 0 => $_->{land} ]), -- cgit v1.2.1