summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e58cf38cf..d2ded823c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -732,7 +732,7 @@ sub getAndSaveInstallFloppy {
getAndSaveFile("images/$image.img", $where) or log::l("failed to write Install Floppy ($image.img) to $where"), return;
push @generated_floppies, $where;
}
- return @generated_floppies;
+ @generated_floppies;
}
sub getAndSaveAutoInstallFloppy {
@@ -781,8 +781,7 @@ sub getAndSaveAutoInstallFloppy {
my $param = 'kickstart=floppy ' . generate_automatic_stage1_params($o);
- my @generated_floppies = getAndSaveInstallFloppy($o, $imagefile);
- @generated_floppies or return;
+ my @generated_floppies = getAndSaveInstallFloppy($o, $imagefile) or return;
my $dev = devices::set_loop($imagefile) or log::l("couldn't set loopback device"), return;
foreach my $fs (qw(ext2 vfat)) {