r51502 - in /branches/upstream/liburi-query-perl/current: Makefile.PL Query.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Jan 24 20:02:17 UTC 2010
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
-
+
More information about the Pkg-perl-cvs-commits
mailing list