From d4180c529f9aa044f2792c8f632be4e8234e66cb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 18 Jan 2005 16:24:54 +0000
Subject: fix *old* typo

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

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

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index d5e2fedab..8b0492786 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -71,7 +71,7 @@ sub mount {
     "       (if /dev/ is left off the device name, a temporary node will be created)\n";
 
     my ($dev, $where) = @_;
-    $fs ||= $where =~ /:/ ? "nfs" :
+    $fs ||= $dev =~ /:/ ? "nfs" :
             $dev =~ /fd/ ? "vfat" : "ext2";
 
     require fs;
-- 
cgit v1.2.1