From 062b7826290cab91c842fac1f0a3978a05f5193c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 29 Jan 2004 22:37:55 +0000 Subject: (conf_network_card_backend) remove compat stuff since callers were cleaned up --- perl-install/network/ethernet.pm | 2 -- 1 file changed, 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index a8c25ecb3..365c0906d 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -83,12 +83,10 @@ sub get_eth_cards() { #- $netc output: #- $netc->{NET_DEVICE} : this is used to indicate that this eth card is used to connect to internet : $device #- output: -#- $all_cards : a list of a list ( [eth1, module1], ... , [ethn, modulen]). Pass the ethx as $interface in further call. #- $device : only returned in case $interface was given it's $interface, but filtered by /eth[0-9+]/ : string : /eth[0-9+]/ sub conf_network_card_backend { my ($netc, $intf, $o_type, $o_interface, $o_ipadr, $o_netadr) = @_; #-type =static or dhcp - return get_eth_cards() if !$o_interface; $o_interface =~ /eth[0-9]+/ or die("the interface is not an ethx"); -- cgit v1.2.1