Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24962/lib/Module/Build
Modified Files:
Base.pm
Log Message:
Create a localize_dir_path() method
Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.455
retrieving revision 1.456
diff -u -d -r1.455 -r1.456
--- Base.pm 5 Jul 2005 17:58:08 -0000 1.455
+++ Base.pm 5 Jul 2005 17:59:12 -0000 1.456
@@ -1794,10 +1794,14 @@
sub localize_file_path {
my ($self, $path) = @_;
- return $path unless $path =~ m{/};
return File::Spec->catfile( split m{/}, $path );
}
+sub localize_dir_path {
+ my ($self, $path) = @_;
+ return File::Spec->catdir( split m{/}, $path );
+}
+
sub fix_shebang_line { # Adapted from fixin() in ExtUtils::MM_Unix 1.35
my ($self, @files) = @_;
my $c = $self->{config};
@@ -1929,7 +1933,7 @@
my ($self, $dirs, %args) = @_;
my %files;
foreach my $spec (@$dirs) {
- my $dir = $self->localize_file_path($spec);
+ my $dir = $self->localize_dir_path($spec);
next unless -e $dir;
FILE: foreach my $file ( @{ $self->rscan_dir( $dir ) } ) {
foreach my $regexp ( @{ $args{exclude} } ) {
|
