From 0a05a6fea0c3760509a6aaef24d5ecb27c30111c Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Thu, 7 Sep 2006 11:17:56 +0000
Subject: r18217: use shorter perl

metze
(This used to be commit 4ce7b4e45c016215a84a70b677d55cc6e79a2473)
---
 source4/build/smb_build/output.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'source4')

diff --git a/source4/build/smb_build/output.pm b/source4/build/smb_build/output.pm
index 6213497a58..5bdb4a417a 100644
--- a/source4/build/smb_build/output.pm
+++ b/source4/build/smb_build/output.pm
@@ -137,11 +137,7 @@ sub create_output($$)
 
 			next if not defined($elem->{CFLAGS});
 			next if $elem->{CFLAGS} eq "";
-			my $found = 0;
-			foreach my $line (@{$part->{PUBLIC_CFLAGS}}) {
-				$found = 1 if ($line eq $elem->{CFLAGS});
-			}
-			next if ($found == 1);
+			next if (grep /^$elem->{CFLAGS}$/, @{$part->{PUBLIC_CFLAGS}});
 			push(@{$part->{PUBLIC_CFLAGS}}, $elem->{CFLAGS});
 		}
 
-- 
cgit