[libinline-java-perl] 371/398: ok

[Jonas Smedegaard]

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 2bfc064e78f063be4259a4a2502490a61bcceb8e
Author: patrick_leb <>
Date:   Thu Mar 2 21:39:59 2006 +0000

    ok
---
 t/02_primitives.t |  6 +++---
 t/MOD_PERL.pm     | 10 +++++-----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/t/02_primitives.t b/t/02_primitives.t
index a35d2db..245557d 100644
--- a/t/02_primitives.t
+++ b/t/02_primitives.t
@@ -130,11 +130,11 @@ my $t = new types2() ;
 	ok($t->_char(undef), "\0") ;
 	ok($t->_char(0), "0") ;
 	ok($t->_char("1"), '1') ;
-	eval {$t->_char("10")} ; ok($@, qr/Can't convert/) ;
+	eval {$t->_char("10")} ; ok($@, qr/Can't convert/) ; #'
 	ok($t->_Character(undef), "\0") ;
 	ok($t->_Character(0), "0") ;
 	ok($t->_Character("1"), '1') ;
-	eval {$t->_Character("10")} ; ok($@, qr/Can't convert/) ;
+	eval {$t->_Character("10")} ; ok($@, qr/Can't convert/) ; #'
 	
 	ok($t->_String(undef), undef) ;
 	ok($t->_String(0), "0") ;
@@ -146,7 +146,7 @@ my $t = new types2() ;
 	ok($t->_StringBuffer(undef), undef) ;
 	ok($t->_StringBuffer(0), "0") ;
 	ok($t->_StringBuffer("stringbuffer"), 'stringbuffer') ;
-	
+
 	# Test if scalars can pass as java.lang.Object.
 	# They should be converted to strings.
 	ok($t->_Object(undef), undef) ;
diff --git a/t/MOD_PERL.pm b/t/MOD_PERL.pm
index 47a54f5..4336791 100755
--- a/t/MOD_PERL.pm
+++ b/t/MOD_PERL.pm
@@ -13,10 +13,10 @@ use Inline (
 	SHARED_JVM => 1,
 ) ;
 
-use Apache::RequestRec ();
-use Apache::RequestIO ();
-  
-use Apache::Const -compile => qw(OK);
+
+use Apache2::RequestRec ;
+use Apache2::RequestIO ;
+use Apache2::Const qw(:common) ;
 
 
 my $cnt = new t::MOD_PERL::counter() ;
@@ -38,7 +38,7 @@ sub handler {
 		"Inline-Java says this MOD_PERL ($$) served $nb of those hits." .
 		$q->end_html() ;
 
-	return Apache::OK ;
+	return OK ;
 }
 
 

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