diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-13 21:11:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-13 21:11:22 +0000 |
| commit | 0e15ebb6d6da054fe54e4ec7f67dc32bde9f3e53 (patch) | |
| tree | 79288440f9eb3279e1a879f6c3ab65ac84db0bde /perl-install | |
| parent | a8d4947902bed4d3df1fe2efb1ee3a5f0818247d (diff) | |
| download | drakx-0e15ebb6d6da054fe54e4ec7f67dc32bde9f3e53.tar drakx-0e15ebb6d6da054fe54e4ec7f67dc32bde9f3e53.tar.gz drakx-0e15ebb6d6da054fe54e4ec7f67dc32bde9f3e53.tar.bz2 drakx-0e15ebb6d6da054fe54e4ec7f67dc32bde9f3e53.tar.xz drakx-0e15ebb6d6da054fe54e4ec7f67dc32bde9f3e53.zip | |
(sexProb): drop (unused!)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/timezone.pm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm index be6899975..6a3d86f99 100644 --- a/perl-install/timezone.pm +++ b/perl-install/timezone.pm @@ -135,23 +135,6 @@ sub fuzzyChoice { } sub bestTimezone { $l2t{fuzzyChoice($_[0])} || 'GMT' } -my %sex = ( -fr_FR => { '[iln]a$' => 1, '[cdilnst]e$' => 1, 'e$' => .8, 'n$' => .1, 'd$' => .05, 't$' => 0 }, -en => { 'a$' => 1, 'o$' => 0, '[ln]$' => .3, '[rs]$' => .2 }, -); - - -sub sexProb($) { - local ($_) = @_; - my $l = $sex{$ENV{LC_ALL}} or return 0.5; - - my ($prob, $nb) = (0, 0); - foreach my $k (keys %$l) { - /$k/ and $prob += $l->{$k}, $nb++; - } - $nb ? $prob / $nb : 0.5; -} - sub ntp_servers { q(Australia (ntp.adelaide.edu.au) Australia (ntp.saard.net) |