r54647 - in /trunk/libredis-perl: Changes META.yml Makefile.PL debian/changelog debian/control lib/Redis.pm

eloy at users.alioth.debian.org eloy at users.alioth.debian.org
Mon Mar 22 11:35:48 UTC 2010


Author: eloy
Date: Mon Mar 22 11:35:41 2010
New Revision: 54647

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54647
Log:
update to latest upstream version

Modified:
    trunk/libredis-perl/Changes
    trunk/libredis-perl/META.yml
    trunk/libredis-perl/Makefile.PL
    trunk/libredis-perl/debian/changelog
    trunk/libredis-perl/debian/control
    trunk/libredis-perl/lib/Redis.pm

Modified: trunk/libredis-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/Changes?rev=54647&op=diff
==============================================================================
--- trunk/libredis-perl/Changes (original)
+++ trunk/libredis-perl/Changes Mon Mar 22 11:35:41 2010
@@ -6,3 +6,8 @@
 0.08	Tue Mar 24 22:38:59 CET 2009
 	This version supports new protocol introduced in beta 8
 	Version bump to be in-sync with Redis version
+
+1.2001	Wed Mar 17 17:22:01 CET 2010
+	Redis protocol 1.2 support by Jeremy Zawodny <Jeremy at Zawodny.com> CPAN RT #54841
+	Version bump to be in-sync with Redis version
+	Correctly round-trip utf-8 encoded characters

Modified: trunk/libredis-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/META.yml?rev=54647&op=diff
==============================================================================
--- trunk/libredis-perl/META.yml (original)
+++ trunk/libredis-perl/META.yml Mon Mar 22 11:35:41 2010
@@ -1,17 +1,26 @@
 --- #YAML:1.0
-name:                Redis
-version:             0.0801
-abstract:            perl binding for Redis database
-license:             ~
-author:              
+name:               Redis
+version:            1.2001
+abstract:           perl binding for Redis database
+author:
     - Dobrica Pavlinusic <dpavlin at rot13.org>
-generated_by:        ExtUtils::MakeMaker version 6.42
-distribution_type:   module
-requires:     
-    Carp:                          0
-    Data::Dumper:                  0
-    IO::Socket::INET:              0
-    Test::More:                    0
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:
+    Carp:              0
+    Data::Dumper:      0
+    Encode:            0
+    IO::Socket::INET:  0
+    Test::More:        0
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.55_02
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
-    version: 1.3
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: trunk/libredis-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/Makefile.PL?rev=54647&op=diff
==============================================================================
--- trunk/libredis-perl/Makefile.PL (original)
+++ trunk/libredis-perl/Makefile.PL Mon Mar 22 11:35:41 2010
@@ -13,6 +13,7 @@
 		'IO::Socket::INET' => 0,
 		'Data::Dumper' => 0,
 		'Carp' => 0,
+		'Encode' => 0,
     },
     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean               => { FILES => 'Redis-*' },

Modified: trunk/libredis-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/debian/changelog?rev=54647&op=diff
==============================================================================
--- trunk/libredis-perl/debian/changelog (original)
+++ trunk/libredis-perl/debian/changelog Mon Mar 22 11:35:41 2010
@@ -1,3 +1,10 @@
+libredis-perl (2:1.2001-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * debian/control: Standards-Version updated to 3.8.4, added me to Uploaders
+  
+ -- Krzysztof Krzyżaniak (eloy) <eloy at debian.org>  Mon, 22 Mar 2010 12:28:49 +0100
+
 libredis-perl (2:0.0801-1) unstable; urgency=low
 
   * Initial Release. (Closes: #565333)

Modified: trunk/libredis-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/debian/control?rev=54647&op=diff
==============================================================================
--- trunk/libredis-perl/debian/control (original)
+++ trunk/libredis-perl/debian/control Mon Mar 22 11:35:41 2010
@@ -4,8 +4,9 @@
 Build-Depends: debhelper (>= 7)
 Build-Depends-Indep: perl, libtest-pod-perl, libtest-pod-coverage-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Tim Retout <tim at retout.co.uk>
-Standards-Version: 3.8.3
+Uploaders: Tim Retout <tim at retout.co.uk>, 
+ Krzysztof Krzyżaniak (eloy) <eloy at kofeina.net>
+Standards-Version: 3.8.4
 Homepage: http://search.cpan.org/dist/Redis/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libredis-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libredis-perl/

Modified: trunk/libredis-perl/lib/Redis.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/lib/Redis.pm?rev=54647&op=diff
==============================================================================
--- trunk/libredis-perl/lib/Redis.pm (original)
+++ trunk/libredis-perl/lib/Redis.pm Mon Mar 22 11:35:41 2010
@@ -6,6 +6,7 @@
 use IO::Socket::INET;
 use Data::Dumper;
 use Carp qw/confess/;
+use Encode;
 
 =head1 NAME
 
@@ -13,14 +14,14 @@
 
 =cut
 
-our $VERSION = '0.0801';
+our $VERSION = '1.2001';
 
 
 =head1 DESCRIPTION
 
 Pure perl bindings for L<http://code.google.com/p/redis/>
 
-This version support git version 0.08 or later of Redis available at
+This version supports protocol 1.2 or later of Redis available at
 
 L<git://github.com/antirez/redis>
 
@@ -61,6 +62,13 @@
 	sadd => 1,	srem => 1,
 	sismember => 1,
 	echo => 1,
+	getset => 1,
+	smove => 1,
+	zadd => 1,
+	zrem => 1,
+	zscore => 1,
+	zincrby => 1,
+	append => 1,
 };
 
 # we don't want DESTROY to fallback into AUTOLOAD
@@ -69,6 +77,8 @@
 our $AUTOLOAD;
 sub AUTOLOAD {
 	my $self = shift;
+
+	use bytes;
 
 	my $sock = $self->{sock} || die "no server connected";
 
@@ -108,6 +118,7 @@
 	}
 
 	my $result = <$sock> || die "can't read socket: $!";
+	Encode::_utf8_on($result);
 	warn "<< $result" if $self->{debug};
 	my $type = substr($result,0,1);
 	$result = substr($result,1,-2);
@@ -126,7 +137,7 @@
 	}
 
 	if ( $type eq '-' ) {
-		confess $result;
+		confess "[$command] $result";
 	} elsif ( $type eq '+' ) {
 		return $result;
 	} elsif ( $type eq '$' ) {
@@ -147,6 +158,7 @@
 	my $v;
 	if ( $len > 0 ) {
 		read($self->{sock}, $v, $len) || die $!;
+		Encode::_utf8_on($v);
 		warn "<< ",Dumper($v),$/ if $self->{debug};
 	}
 	my $crlf;
@@ -360,6 +372,14 @@
 
   my $info_hash = $r->info;
 
+=head1 ENCODING
+
+Since Redis knows nothing about encoding, we are forcing utf-8 flag on all data received from Redis.
+This change is introduced in 1.2001 version.
+
+This allows us to round-trip utf-8 encoded characters correctly, but might be problem if you push
+binary junk into Redis and expect to get it back without utf-8 flag turned on.
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>
@@ -410,7 +430,7 @@
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2009 Dobrica Pavlinusic, all rights reserved.
+Copyright 2009-2010 Dobrica Pavlinusic, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.




More information about the Pkg-perl-cvs-commits mailing list