From 0e15ebb6d6da054fe54e4ec7f67dc32bde9f3e53 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 13 Dec 2002 21:11:22 +0000
Subject: (sexProb): drop (unused!)

---
 perl-install/timezone.pm | 17 -----------------
 1 file changed, 17 deletions(-)

(limited to 'perl-install/timezone.pm')

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)
-- 
cgit v1.2.1