From 7bffa077fb41248026271f640e006f4b4690e1d9 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 22 Sep 2004 05:47:36 +0000
Subject: Backport utility functions from 10.1

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 476526b97..b4d6686cb 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -76,6 +76,15 @@ 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 errorOpeningFile($) {
     my ($file) = @_;
     $file eq 'XXX' and return; #- special case to force closing file after rpmlib transaction.
-- 
cgit v1.2.1