From cec9fd9a69aa91a6f3de3becfdfe7eb8eeff7e3a Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 25 Aug 2004 05:48:19 +0000 Subject: add missing spaces --- perl-install/network/tools.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 50165f871..a789df850 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -287,8 +287,8 @@ sub test_internet_connection() { sub get_interface_type { my ($interface) = @_; - $interface->{DEVICE} =~/^(eth|ath|wlan)/ && "ethernet" || - $interface->{DEVICE} =~/^ippp/ && "isdn" || + $interface->{DEVICE} =~ /^(eth|ath|wlan)/ && "ethernet" || + $interface->{DEVICE} =~ /^ippp/ && "isdn" || $interface->{DEVICE} =~ /^ppp/ && (member($interface->{TYPE}, "xDSL", "ADSL") ? "adsl" : "modem"); } -- cgit v1.2.1