diff options
| -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. |