summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-22 05:47:36 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-22 05:47:36 +0000
commit7bffa077fb41248026271f640e006f4b4690e1d9 (patch)
treeaafdcb10ee09ec514aef7d91a19437e7b521c7e3 /perl-install
parentaf2f16a90418a7a42c856cc50256983147715b43 (diff)
downloaddrakx-backup-do-not-use-7bffa077fb41248026271f640e006f4b4690e1d9.tar
drakx-backup-do-not-use-7bffa077fb41248026271f640e006f4b4690e1d9.tar.gz
drakx-backup-do-not-use-7bffa077fb41248026271f640e006f4b4690e1d9.tar.bz2
drakx-backup-do-not-use-7bffa077fb41248026271f640e006f4b4690e1d9.tar.xz
drakx-backup-do-not-use-7bffa077fb41248026271f640e006f4b4690e1d9.zip
Backport utility functions from 10.1
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm9
1 files changed, 9 insertions, 0 deletions
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.