svn commit: samba r18217 - in branches/SAMBA_4_0/source/build/smb_build: .

[metze at samba.org]

Author: metze
Date: 2006-09-07 11:17:56 +0000 (Thu, 07 Sep 2006)
New Revision: 18217

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=18217

Log:
use shorter perl

metze
Modified:
   branches/SAMBA_4_0/source/build/smb_build/output.pm


Changeset:
Modified: branches/SAMBA_4_0/source/build/smb_build/output.pm
===================================================================
--- branches/SAMBA_4_0/source/build/smb_build/output.pm	2006-09-07 10:50:33 UTC (rev 18216)
+++ branches/SAMBA_4_0/source/build/smb_build/output.pm	2006-09-07 11:17:56 UTC (rev 18217)
@@ -137,11 +137,7 @@
 
 			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});
 		}