[libinline-java-perl] 148/398: Put back changes lost earlier

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:42:58 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 764c6ebdb6eecfa93e5cf96fd8b93cd8ccca8f10
Author: patrick_leb <>
Date:   Mon Jan 21 14:51:17 2002 +0000

    Put back changes lost earlier
---
 Java.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Java.pm b/Java.pm
index 318a1bc..f17da75 100644
--- a/Java.pm
+++ b/Java.pm
@@ -380,7 +380,7 @@ sub write_java {
 	my $build_dir = $o->get_api('build_dir') ;
 	my $modfname = $o->get_api('modfname') ;
 
-	$o->mkpath($build_dir) ;
+	Inline::Java::Portable::mkpath($o, $build_dir) ;
 
 	if (! $study_only){
 		my $p = File::Spec->catfile($build_dir, "$modfname.java") ;
@@ -419,7 +419,7 @@ sub compile {
 
 	my $install = File::Spec->catdir($install_lib, "auto", $modpname) ;
 
-	$o->mkpath($install) ;
+	Inline::Java::Portable::mkpath($o, $install) ;
 	$o->set_classpath($install) ;
 
 	my $javac = File::Spec->catfile($o->{ILSM}->{BIN}, 
@@ -484,7 +484,7 @@ sub compile {
 	}
 
 	if ($o->get_api('cleanup')){
-		$o->rmpath('', $build_dir) ;
+		Inline::Java::Portable::rmpath($o, '', $build_dir) ;
 	}
 
 	Inline::Java::debug("compile done.") ;
@@ -653,7 +653,7 @@ sub set_classpath {
 			# Here we must make sure that the directory exists, or
 			# else it is removed from the CLASSPATH by Java
 			my $path = File::Spec->catdir($dir, $m) ;
-			$o->mkpath($path) ;
+			Inline::Java::Portable::mkpath($o, $path) ;
 
 			$paths{$path} = 1 ;
 		}

-- 
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