From c4bc3ce434c4d352391ba8618fdfec4c123cc3c1 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 20 Jul 2004 14:45:23 +0000
Subject: unused variable

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

(limited to 'perl-install/network')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 91c5ec7e2..15a5a7a8b 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -1396,7 +1396,7 @@ sub get_net_device() {
 }
 
 sub read_net_conf {
-    my ($_prefix, $netcnx, $netc) = @_;
+    my (undef, $netcnx, $netc) = @_;
     $netc->{$_} = $netcnx->{$_} foreach 'NET_DEVICE', 'NET_INTERFACE';
     $netcnx->{$netcnx->{type}} ||= {};
 }
-- 
cgit v1.2.1