[Reproducible-commits] [libextutils-depends-perl] 06/187: minor update for portability

[Maria Valentina Marin Rodrigues]

This is an automated email from the git hooks/post-receive script.

akira-guest pushed a commit to branch pu/reproducible_builds
in repository libextutils-depends-perl.

commit f96d27b8d3a08c13bfd1af5008e8b456f8d5badd
Author: Scott Arrington <sarringt at src.gnome.org>
Date:   Tue Jul 8 18:12:50 2003 +0000

    minor update for portability
    
    svn path=/trunk/; revision=8
---
 Changes                 | 5 +++++
 lib/ExtUtils/Depends.pm | 6 ++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 23e1564..daae224 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension ExtUtils::Depends.
 
+0.102 Tue Jul  8 14:10:29 EDT 2003
+	- use File::Spec->file_name_is_absolute instead of non-portable m{^/}.
+	  still uses direct string manipulation on paths, but this fix lets
+	  the module function correctly under native Win32 perl.
+
 0.101 Fri Jun 20 23:37:19 CEST 2003
 	- added primitive load-only testsuite.
 
diff --git a/lib/ExtUtils/Depends.pm b/lib/ExtUtils/Depends.pm
index bac2644..edb98c6 100644
--- a/lib/ExtUtils/Depends.pm
+++ b/lib/ExtUtils/Depends.pm
@@ -3,6 +3,7 @@
 #
 
 package ExtUtils::Depends;
+use File::Spec;
 use File::Basename;
 use Carp;
 use Cwd;
@@ -10,7 +11,7 @@ use IO::File;
 use strict;
 use vars qw($AUTOLOAD $VERSION);
 
-$VERSION = 0.101;
+$VERSION = 0.102;
 
 sub new {
 	my ($class, $package, @depends) = @_;
@@ -99,7 +100,8 @@ sub load {
 			die "Cannot load $_: $@\n";
 		}
 		$dir ||= ${"${_}::CORE"} || $INC{$file};
-		$dir = cwd().'/'.$dir unless $dir =~ m(^/);
+		$dir = cwd().'/'.$dir
+			unless File::Spec->file_name_is_absolute($dir);
 		warn "Found $name in $dir\n";
 		push @{$self->{_dtypemaps_}}, map {$dir.'/'.$_} @{"${_}::typemaps"};
 		#push @{$self->{_ddefs_}}, @{"${_}::defs"};

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/libextutils-depends-perl.git