[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.548,1.549

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8198/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Modify add_build_element() so that it only adds elements if they don't already exist.

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.548
retrieving revision 1.549
diff -u -d -r1.548 -r1.549
--- Base.pm	23 Feb 2006 04:03:51 -0000	1.548
+++ Base.pm	25 Feb 2006 03:51:27 -0000	1.549
@@ -449,8 +449,9 @@
 
 
 sub add_build_element {
-  my $self = shift;
-  push @{$self->build_elements}, shift;
+    my ($self, $elem) = @_;
+    my $elems = $self->build_elements;
+    push @$elems, $elem unless grep { $_ eq $elem } @$elems;
 }
 
 sub ACTION_config_data {