From b5aa16a1e615298dc24a78d49ab12b9123839950 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 16 Jan 2003 16:14:20 +0000
Subject: workaround ref count perl bug

---
 perl-install/install_any.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'perl-install')

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;
 }
-- 
cgit v1.2.1