From 149bb85110e0f6de5f16d8acbb636644c4fb114d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Jul 2004 01:21:42 +0000
Subject: - rename add_alias() into set_alias() - create set_sound_slot() and
 use it

---
 perl-install/network/adsl.pm     | 2 +-
 perl-install/network/ethernet.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index bc3c170e9..2089dd229 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -307,7 +307,7 @@ TYPE=$kind
     
     # set aliases:
     if (exists $modems{$adsl_device}{aliases}) {
-        modules::add_alias($_->[0], $_->[1]) foreach @{$modems{$adsl_device}{aliases}};
+        modules::set_alias($_->[0], $_->[1]) foreach @{$modems{$adsl_device}{aliases}};
         $::isStandalone and modules::write_conf();
     }
 
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index ea322a7f2..6f9cc8c85 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -87,7 +87,7 @@ sub get_eth_cards_names {
     
     foreach my $card (@all_cards) {
 	modules::remove_alias($card->[1]);
-	modules::add_alias($card->[0], $card->[1]);
+	modules::set_alias($card->[0], $card->[1]);
     }
 
     { map { $_->[0] => join(': ', $_->[0], $_->[2]) } @all_cards };
@@ -134,7 +134,7 @@ sub conf_network_card_backend {
 sub configure_eth_aliases() {
     foreach (detect_devices::getNet()) {
         my $driver = c::getNetDriver($_) or next;
-        modules::add_alias($_, $driver);
+        modules::set_alias($_, $driver);
     }
 }
 
-- 
cgit v1.2.1