r18217: use shorter perl

metze
(This used to be commit 4ce7b4e45c016215a84a70b677d55cc6e79a2473)

diff --git a/source4/build/smb_build/output.pm b/source4/build/smb_build/output.pm
index 6213497a58391087317e47c855d6928408924286..5bdb4a417a1d667d1343fe970d894244dfccbaaf 100644 (file)
--- 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});
                }