[libinline-java-perl] 246/398: remove pre-5.6 checks.

[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 aa25320709d28c5faeaf571ef5e0f945fb1e016b
Author: patrick_leb <>
Date:   Thu Nov 20 16:32:33 2003 +0000

    remove pre-5.6 checks.
---
 Java/Protocol.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Java/Protocol.pm b/Java/Protocol.pm
index a046662..21608fb 100644
--- a/Java/Protocol.pm
+++ b/Java/Protocol.pm
@@ -413,7 +413,7 @@ sub encode {
 	my $s = shift ;
 
 	# If Perl version < 5.6, use C*
-	return join(".", unpack(($] < 5.006 ? "C*" : "U*"), $s)) ;
+	return join(".", unpack("U*", $s)) ;
 }
 
 
@@ -421,7 +421,7 @@ sub decode {
 	my $s = shift ;
 
 	# If Perl version < 5.6, use C*
-	return pack(($] < 5.006 ? "C*" : "U*"), split(/\./, $s)) ;
+	return pack("U*", split(/\./, $s)) ;
 }
 
 

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