Author: kwilliams
Date: Sat Jul 15 05:00:29 2006
New Revision: 6651
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/lib/Module/Build/Base.pm
Log:
The latest version of File::Spec optimizes this issue internally.
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Sat Jul 15 05:00:29 2006
@@ -8,12 +8,6 @@
give the user a pure-perl option, so installing version.pm
shouldn't be too onerous for most users. [John Peacock]
- - Sped up execution of find_pods by catering to File::Spec's and
- Cwd's peculiarities. This produces about a factor of 3 speedup in
- building M::B itself (from about 3.5 seconds down to 1.2 seconds on
- my machine), which would probably be more noticeable for much
- larger distributions.
-
- We should be accepting the default when we're in unattended mode,
not acting dumb and ignoring both the default and the [empty]
answer from the user. Fixed. [Spotted by Nik Clayton]
Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Sat Jul 15 05:00:29 2006
@@ -2439,9 +2439,7 @@
my ($self, $dirs, %args) = @_;
my %files;
foreach my $spec (@$dirs) {
- # Run through rel2abs() because abs2rel() will do the same thing
- # anyway - faster to just do it up front.
- my $dir = File::Spec->rel2abs( $self->localize_dir_path($spec) );
+ my $dir = $self->localize_dir_path($spec);
next unless -e $dir;
FILE: foreach my $file ( @{ $self->rscan_dir( $dir ) } ) {
