From 2c80aa5feabe31cf09dd748fde2214a27b118448 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 1 Mar 2004 10:49:29 +0000 Subject: simplify --- perl-install/install_any.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install') 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)) { -- cgit v1.2.1