From 927945807c4a2c477d24b3b7e26816f05fc11e77 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 27 May 2005 01:20:42 +0000
Subject: Remove unused function

---
 perl-install/install_any.pm | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a93d910f8..eec4873b1 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -582,13 +582,6 @@ sub setup_suppl_medium {
     $supplmedium->mark_suppl;
 }
 
-sub _media_rank {
-    my ($x) = @_;
-    my ($y, $s) = $x =~ /(\d+)(s?)\)\.cz/;
-    $s and $y += 100;
-    $y;
-}
-
 sub load_rate_files {
     my ($o) = @_;
     #- must be done after getProvides
-- 
cgit v1.2.1