From 17f58faa872cfd030c259bb19939f8d40e2ab504 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 24 Sep 2004 06:30:35 +0000
Subject: Remove dead code

---
 perl-install/install_any.pm | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 3b10a255c..ecfac97ee 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -76,14 +76,7 @@ sub askChangeMedium($$) {
     $allow;
 }
 
-sub method_is_from_ISO_images($) {
-    my ($method) = @_;
-    $method eq "disk-iso" || $method eq "nfs-iso";
-}
-sub method_allows_medium_change($) {
-    my ($method) = @_;
-    $method eq "cdrom" || method_is_from_ISO_images($method);
-}
+sub method_allows_medium_change($) { $_[0] eq "cdrom" }
 
 sub errorOpeningFile($) {
     my ($file) = @_;
-- 
cgit v1.2.1