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 {
|
