From 51039844febe1dc7c3f7ac5b3409f00e1679ab76 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 31 Jul 2002 15:18:09 +0000
Subject: replace "$foo" with $foo

---
 perl-install/network/modem.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/network/modem.pm')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 046ebbf8d..c90725081 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -70,13 +70,13 @@ sub modem_detect_backend {
     $mouse ||={};
     $mouse->{device} ||= readlink "/dev/mouse";
     my $serdev = arch() =~ /ppc/ ? "macserial" : "serial";
-    eval { modules::load("$serdev") };
+    eval { modules::load($serdev) };
 
     detect_devices::probeSerialDevices();
     foreach ('modem', map { "ttyS$_" } (0..7)) {
 	next if $mouse->{device} =~ /$_/;
 	next unless -e "/dev/$_";
-	detect_devices::hasModem("/dev/$_") and $modem->{device} = "$_", last;
+	detect_devices::hasModem("/dev/$_") and $modem->{device} = $_, last;
     }
 
     #- add an alias for macserial on PPC
-- 
cgit v1.2.1