From 459eedd7dc7ef289f379d2fc1dc691a057d1e144 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 18 Nov 2004 13:25:45 +0000 Subject: remove some unneeded ";", add some for normalization (as told by perl_checker) --- perl-install/network/ethernet.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/network/ethernet.pm') diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 0a7a3d19f..4f55c780e 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -98,7 +98,7 @@ sub get_eth_cards { $description = $cards[0]{description} if @cards == 1; } $a and $saved_driver = $a; # handle multiple cards managed by the same driver - [ $interface, $saved_driver, if_($description, $description) ] + [ $interface, $saved_driver, if_($description, $description) ]; } @all_cards; } @@ -120,7 +120,7 @@ sub update_iftab() { my $descriptor = ${{ ether => 'mac', ieee1394 => 'mac_ieee1394' }}{$link_type} or next; substInFile { s/^$intf\s+.*\n//; - $_ .= qq($intf\t$descriptor $mac_address\n) if eof + $_ .= qq($intf\t$descriptor $mac_address\n) if eof; } "$::prefix/etc/iftab"; } } -- cgit v1.2.1