[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