summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 1990e891e..335724414 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -968,13 +968,13 @@ sub suggest_mount_points {
sub find_root_parts {
my ($fstab, $prefix) = @_;
map {
- if (my $handle = any::inspect($_, $prefix)) {
- if (my $s = cat_("$handle->{dir}/etc/mandrake-release")) {
- chomp($s);
- $s =~ s/\s+for\s+\S+//;
- log::l("find_root_parts found $_->{device}: $s");
- { release => $s, part => $_ };
- } else { () }
+ my $handle = any::inspect($_, $prefix);
+ my $s = $handle && cat_("$handle->{dir}/etc/mandrake-release");
+ if ($s) {
+ chomp($s);
+ $s =~ s/\s+for\s+\S+//;
+ log::l("find_root_parts found $_->{device}: $s");
+ { release => $s, part => $_ };
} else { () }
} @$fstab;
}