From 6a4e6a1641b4c9868998d52c1988134dea0308e5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 25 Feb 2003 21:48:25 +0000 Subject: (read_resolv_conf_raw): fix "search ..." handling --- perl-install/network/network.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/network') diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index 1df5e18f1..8ae8abb6a 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -30,7 +30,7 @@ sub read_resolv_conf_raw { my ($file) = @_; $file ||= "$::prefix/etc/resolv.conf"; { nameserver => [ cat_($file) =~ /^\s*nameserver\s+(\S+)/mg ], - search => [ cat_($file) =~ /^\s*search\s+(\S+)/mg ] }; + search => [ if_(cat_($file) =~ /^\s*search\s+(.*)/m, split(' ', $1)) ] }; } sub read_resolv_conf { -- cgit v1.2.1