From c2f200920f04dba0874c054038770a91a71fbba5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 7 Jan 2003 13:22:28 +0000
Subject: use "if any" instead of "if grep", and various other occurences of
 "any", "every", "partition"

---
 perl-install/timezone.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/timezone.pm')

diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index 6a3d86f99..e82d6cca5 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -36,7 +36,7 @@ sub ntp_server {
 	} $f;
 	output("$prefix/etc/ntp/step-tickers", "$server\n");
     } else {
-	($server) = grep { $_ ne '127.127.1.0' } map { if_(/^\s*server\s+(\S*)/, $1) } cat_($f);
+	$server = find { $_ ne '127.127.1.0' } map { if_(/^\s*server\s+(\S*)/, $1) } cat_($f);
     }
     $server;
 }
-- 
cgit v1.2.1