[libinline-java-perl] 265/398: Replaced Cwd calls with File::Spec calls

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:43:12 UTC 2015


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

js pushed a commit to tag 0.55
in repository libinline-java-perl.

commit 42e4817aefd2ec33c369694c9d8aac7f389cd79a
Author: patrick_leb <>
Date:   Thu Jan 8 19:26:53 2004 +0000

    Replaced Cwd calls with File::Spec calls
---
 Java/Portable.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/Java/Portable.pm b/Java/Portable.pm
index e3f67ae..1421b97 100644
--- a/Java/Portable.pm
+++ b/Java/Portable.pm
@@ -7,7 +7,6 @@ use strict ;
 use Exporter ;
 use Carp ;
 use Config ;
-use Cwd ;
 use File::Find ;
 use File::Spec ;
 
@@ -62,7 +61,7 @@ sub make_classpath {
 	foreach my $p (@cp){
 		if (($p)&&(-e $p)){
 			if ($cp{$p}){
-				my $fp = (-d $p ? Cwd::abs_path($p) : $p) ;
+				my $fp = (-d $p ? File::Spec->rel2abs($p) : $p) ;
 				push @fcp, portable("SUB_FIX_CLASSPATH", $fp) ;
 				delete $cp{$p} ;
 			}
@@ -85,7 +84,7 @@ sub get_jar_dir {
 	# This undef for the file should be ok.
 	my $dir = File::Spec->catpath($v, $d, 'Java', undef) ;
 
-	return Cwd::abs_path($dir) ;
+	return File::Spec->rel2abs($dir) ;
 }
 
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git



More information about the Pkg-perl-cvs-commits mailing list