diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-22 05:47:36 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-22 05:47:36 +0000 |
| commit | 7bffa077fb41248026271f640e006f4b4690e1d9 (patch) | |
| tree | aafdcb10ee09ec514aef7d91a19437e7b521c7e3 /perl-install | |
| parent | af2f16a90418a7a42c856cc50256983147715b43 (diff) | |
| download | drakx-7bffa077fb41248026271f640e006f4b4690e1d9.tar drakx-7bffa077fb41248026271f640e006f4b4690e1d9.tar.gz drakx-7bffa077fb41248026271f640e006f4b4690e1d9.tar.bz2 drakx-7bffa077fb41248026271f640e006f4b4690e1d9.tar.xz drakx-7bffa077fb41248026271f640e006f4b4690e1d9.zip | |
Backport utility functions from 10.1
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 9 |
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. |