From e156b1ce366fb2c05298731a3ba4ceb905e88738 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 8 Jun 2012 18:51:03 +0000
Subject: use newly introduced any()

---
 urpm/cfg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'urpm/cfg.pm')

diff --git a/urpm/cfg.pm b/urpm/cfg.pm
index 5e002b0d..2bd90633 100644
--- a/urpm/cfg.pm
+++ b/urpm/cfg.pm
@@ -136,7 +136,7 @@ sub load_config_raw {
 	} elsif (/^(.*?[^\\])\s+(?:(.*?[^\\])\s+)?{$/) { 
 	    #- medium definition
 	    my ($name, $url) = (unquotespace($1), unquotespace($2));
-	    if (grep { $_->{name} eq $name } @blocks) {
+	    if (any { $_->{name} eq $name } @blocks) {
 		#- hmm, somebody fudged urpmi.cfg by hand.
 		$err = N("medium `%s' is defined twice, aborting", $name);
 		return;
-- 
cgit v1.2.1