Skip to content

Commit

Permalink
Removed List::MoreUtils build dependency
Browse files Browse the repository at this point in the history
  • Loading branch information
Leont committed Aug 30, 2010
1 parent 1b6d189 commit 28c9408
Show file tree
Hide file tree
Showing 3 changed files with 3 additions and 7 deletions.
1 change: 0 additions & 1 deletion META.yml
Expand Up @@ -15,7 +15,6 @@ build_requires:
Archive::Tar: 0
ExtUtils::CBuilder: 0.27
ExtUtils::Install: 1.47
List::MoreUtils: 0.12
Module::Load: 0
TAP::Harness: 3
configure_requires:
Expand Down
2 changes: 0 additions & 2 deletions doc/Install.pod
Expand Up @@ -49,8 +49,6 @@ Recent version of the Intel and Codeweavers compilers might work too, but have n

=item * ExtUtils::CBuilder (included in perl 5.10.0)

=item * List::MoreUtils

=item * Module::Load (included in perl 5.10.0)

=item * TAP::Harness 3 (included in perl 5.10.1)
Expand Down
7 changes: 3 additions & 4 deletions inc/Library/Build/Base.pm
Expand Up @@ -16,7 +16,6 @@ use File::Copy qw/copy/;
use File::Find qw/find/;
use File::Path qw/mkpath rmtree/;
use File::Spec::Functions qw/catfile catdir splitdir/;
use List::MoreUtils qw/any uniq/;
use Pod::Man;
use POSIX qw/strftime/;
use TAP::Harness;
Expand Down Expand Up @@ -187,7 +186,7 @@ sub build_library {
objects => \@objects,
extra_linker_flags => $linker_flags,
module_name => 'libperl++',
) if not -e $library_file or any { (-M $_ < -M $library_file ) } @objects;
) if not -e $library_file or grep { (-M $_ < -M $library_file ) } @objects;
return;
}

Expand All @@ -202,7 +201,7 @@ sub build_executable {
exe_file => $args{output},
extra_linker_flags => $linker_flags,
'C++' => $args{'C++'},
) if not -e $args{output} or any { (-M $_ < -M $args{output}) } @objects;
) if not -e $args{output} or grep { (-M $_ < -M $args{output}) } @objects;
return;
}

Expand Down Expand Up @@ -277,7 +276,7 @@ sub yes_no {
sub remove_dirty_files {
my ($self, @categories) = @_;
my @keys = map { $_ eq 'all' ? keys %{ $self->{dirty_files} } : $_ } @categories;
my @files = map { @{ $self->{dirty_files}{$_} } } uniq sort @keys;
my @files = map { @{ $self->{dirty_files}{$_} } } sort @keys;
$self->remove_tree(@files);
return;
}
Expand Down

0 comments on commit 28c9408

Please sign in to comment.