diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-21 15:21:46 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-21 15:21:46 +0000 |
| commit | 822aaf5dc31ddcf1ad68f34087ea27f767c85c9e (patch) | |
| tree | 3944a9926b37e36f67de35824f7eed2343e94b8b /rpmdrake.pm | |
| parent | 93e9abfce70235258322062c1996a45fc8ba42aa (diff) | |
| download | rpmdrake-822aaf5dc31ddcf1ad68f34087ea27f767c85c9e.tar rpmdrake-822aaf5dc31ddcf1ad68f34087ea27f767c85c9e.tar.gz rpmdrake-822aaf5dc31ddcf1ad68f34087ea27f767c85c9e.tar.bz2 rpmdrake-822aaf5dc31ddcf1ad68f34087ea27f767c85c9e.tar.xz rpmdrake-822aaf5dc31ddcf1ad68f34087ea27f767c85c9e.zip | |
some code cleanup thx to titi & perl checker
Diffstat (limited to 'rpmdrake.pm')
| -rw-r--r-- | rpmdrake.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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} ]), |