summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r--perl-install/network/tools.pm22
1 files changed, 0 insertions, 22 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 6fe4c047c..ec5169cf2 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -188,28 +188,6 @@ EOF
};
}
-sub copy_firmware {
- my ($device, $destination, $file) = @_;
- my ($source, $failed, $mounted);
-
- $device eq 'floppy' and do { $mounted = 1; ($source, $failed) = use_floppy($file) };
- $device eq 'windows' and ($source, $failed) = use_windows();
-
- $source eq $failed and return;
- $mounted and my $_b = before_leaving { fs::umount('/mnt') };
- if ($failed) {
- eval { $in->ask_warn('', $failed) }; $in->exit if $@ =~ /wizcancel/;
- return;
- }
-
- if (-e "$source/$file") { cp_af("$source/$file", $destination) }
- else { $failed = N("Firmware copy failed, file %s not found", $file) }
- eval { $in->ask_warn('', $failed || N("Firmware copy succeeded")) }; $in->exit if $@ =~ /wizcancel/;
- log::explanations($failed || "Firmware copy $file in $destination succeeded");
-
- $failed ? 0 : 1;
-}
-
sub use_windows() {
my $all_hds = fsedit::get_hds({}, undef);
fs::get_info_from_fstab($all_hds, '');