From 8422bcac45a35c455210e14b0210514de0218a91 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 20 Jan 2005 17:46:53 +0000
Subject: restore previous network::ethernet::get_eth_cards_names() behaviour
 (i got hit by { map ... }; being a block and not a hash ref)

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

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

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 66562b5ed..84d828a41 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -96,7 +96,7 @@ sub get_eth_cards {
 
 sub get_eth_cards_names {
     my (@all_cards) = @_;
-    +{ map { $_->[0] => join(': ', $_->[0], $_->[2]) } @all_cards };
+    map { $_->[0] => join(': ', $_->[0], $_->[2]) } @all_cards;
 }
 
 #- returns (link_type, mac_address)
-- 
cgit v1.2.1