r51502 - in /branches/upstream/liburi-query-perl/current: Makefile.PL Query.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sun Jan 24 20:01:45 2010
New Revision: 51502

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51502
Log:
[svn-upgrade] Integrating new upstream version, liburi-query-perl (0.07)

Modified:
    branches/upstream/liburi-query-perl/current/Makefile.PL
    branches/upstream/liburi-query-perl/current/Query.pm

Modified: branches/upstream/liburi-query-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liburi-query-perl/current/Makefile.PL?rev=51502&op=diff
==============================================================================
--- branches/upstream/liburi-query-perl/current/Makefile.PL (original)
+++ branches/upstream/liburi-query-perl/current/Makefile.PL Sun Jan 24 20:01:45 2010
@@ -6,10 +6,9 @@
     'NAME'		=> 'URI::Query',
     'VERSION_FROM'	=> 'Query.pm', # finds $VERSION
     'PREREQ_PM'		=> {
-       URI::Escape => 0,
-       Test::More => 0,
+       URI          => 1.31,
+       Test::More   => 0,
     }, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?    ## Add these new keywords supported since 5.005
       (AUTHOR     => 'Gavin Carr <gavin at openfusion.com.au>') : ()),
 );
-# arch-tag: e3628f30-b383-4c8b-ad6c-e71ca0b91e7f

Modified: branches/upstream/liburi-query-perl/current/Query.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liburi-query-perl/current/Query.pm?rev=51502&op=diff
==============================================================================
--- branches/upstream/liburi-query-perl/current/Query.pm (original)
+++ branches/upstream/liburi-query-perl/current/Query.pm Sun Jan 24 20:01:45 2010
@@ -5,15 +5,17 @@
 package URI::Query;
 
 use 5.00503;
-use URI::Escape;
 use strict;
+
+use URI::Escape qw(uri_escape_utf8);
+
 use overload 
   '""'    => \&stringify,
   'eq'  => sub { $_[0]->stringify eq $_[1]->stringify },
   'ne'  => sub { $_[0]->stringify ne $_[1]->stringify };
+
 use vars q($VERSION);
-
-$VERSION = '0.06';
+$VERSION = '0.07';
 
 # -------------------------------------------------------------------------
 # Remove all occurrences of the given parameters
@@ -70,7 +72,7 @@
     my @out = ();
     for my $key (sort keys %{$self->{qq}}) {
         for my $value (sort @{$self->{qq}->{$key}}) {
-            push @out, sprintf("%s=%s", uri_escape($key), uri_escape($value));
+            push @out, sprintf("%s=%s", uri_escape_utf8($key), uri_escape_utf8($value));
         }
     }
     join $sep, @out;
@@ -272,13 +274,11 @@
 
 =head1 COPYRIGHT
 
-Copyright 2004-2005, Gavin Carr. All Rights Reserved.
+Copyright 2004-2010, Gavin Carr. All Rights Reserved.
 
 This program is free software. You may copy or redistribute it under the 
 same terms as perl itself.
 
-
 =cut
 
-# arch-tag: 66eb6ee6-02bb-43e5-bda7-9529ad44f86f
-
+