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}); }
