[libinline-java-perl] 101/398: Fix making $s variable submitted by Geoffrey

[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 73f26e34fb4fe6984279f611067d90d30aa03c3e
Author: Patrick LeBoutillier <patl at cpan.org>
Date:   Fri Jun 1 18:39:15 2001 +0000

    Fix making $s variable
    submitted by Geoffrey
---
 Java/Object.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Java/Object.pm b/Java/Object.pm
index 95bc9df..d8c0375 100644
--- a/Java/Object.pm
+++ b/Java/Object.pm
@@ -96,8 +96,8 @@ sub __validate_prototype {
 		my $new_args = undef ;
 		my $score = undef ;
 
-		my $s = Inline::Java::Protocol->CreateSignature($proto) ;
-		Inline::Java::debug("Matching arguments to $method$s") ;
+		my $sig = Inline::Java::Protocol->CreateSignature($proto) ;
+		Inline::Java::debug("Matching arguments to $method$sig") ;
 		
 		eval {
 			($new_args, $score) = Inline::Java::Class::CastArguments($args, $proto, $inline->get_api('modfname')) ;
@@ -136,8 +136,8 @@ sub __validate_prototype {
 			my $proto = $s->{SIGNATURE} ;	
 			my $static = ($s->{STATIC} ? "static " : "") ;
 
-			my $s = Inline::Java::Protocol->CreateSignature($proto) ;
-			$msg .= "\t$static$method$s\n" ;
+			my $sig = Inline::Java::Protocol->CreateSignature($proto) ;
+			$msg .= "\t$static$method$sig\n" ;
 			$msg .= "\t\terror was: $errors[$i]" ;
 			$i++ ;
 		}

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