[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.455,1.456

[Ken W. <kwi...@us...>]

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