From b61d71a761ab7aad865622203dda319ec279ed63 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 7 Jun 2005 01:40:24 +0000
Subject: allow inspecting nfs

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index b5fd95ec9..c1db06151 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -574,7 +574,7 @@ sub inspect {
 	$dir = '';
     } else {
 	mkdir $dir, 0700;
-	eval { fs::mount(devices::make($part->{device}), $dir, $part->{fs_type}, !$b_rw) };
+	eval { fs::mount(fs::part2wild_device_name('', $part), $dir, $part->{fs_type}, !$b_rw) };
 	$@ and return;
     }
     my $h = before_leaving {
-- 
cgit v1.2.1