Hello community, here is the log from the commit of package perl-URI for openSUSE:Factory checked in at 2012-04-17 22:00:39 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-URI (Old) and /work/SRC/openSUSE:Factory/.perl-URI.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-URI", Maintainer is "[email protected]" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-URI/perl-URI.changes 2011-09-23 12:39:22.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-URI.new/perl-URI.changes 2012-04-17 22:00:44.000000000 +0200 @@ -1,0 +2,7 @@ +Sun Apr 01 17:27:05 UTC 2012 - [email protected] + +- update to 1.60: + * avoid failure if the local hostname is 'foo' [RT#75519] + * fix RT#59274 - courtesy of a stupid 5.8.[12] join bug + +------------------------------------------------------------------- Old: ---- URI-1.59.tar.gz New: ---- URI-1.60.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-URI.spec ++++++ --- /var/tmp/diff_new_pack.criRXA/_old 2012-04-17 22:00:46.000000000 +0200 +++ /var/tmp/diff_new_pack.criRXA/_new 2012-04-17 22:00:46.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-URI # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -21,10 +21,10 @@ Name: perl-URI %define cpan_name URI Summary: Uniform Resource Identifiers (absolute and relative) -Version: 1.59 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +License: GPL-2.0+ or Artistic-1.0 Group: Development/Libraries/Perl +Version: 1.60 +Release: 0 Url: http://search.cpan.org/dist/URI/ Source: http://www.cpan.org/modules/by-module/URI/URI-%{version}.tar.gz BuildArch: noarch ++++++ URI-1.59.tar.gz -> URI-1.60.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.59/Changes new/URI-1.60/Changes --- old/URI-1.59/Changes 2011-08-15 19:28:14.000000000 +0200 +++ new/URI-1.60/Changes 2012-03-25 22:50:29.000000000 +0200 @@ -1,3 +1,24 @@ +2012-03-25 Gisle Aas <[email protected]> + + Release 1.60 + + Gisle Aas (3): + Merge pull request #4 from hiratara/fix-repourl + Updated repository URL + Avoid failure if the local hostname is 'foo' [RT#75519] + + Masahiro Honma (1): + Fix the URL of the repository. + + Matt Lawrence (1): + Do not reverse the order of new parameters + + Peter Rabbitson (1): + Fix RT#59274 - courtesy of a stupid 5.8.[12] join bug + + + + 2011-08-15 Gisle Aas <[email protected]> Release 1.59 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.59/META.yml new/URI-1.60/META.yml --- old/URI-1.59/META.yml 2011-08-15 19:28:39.000000000 +0200 +++ new/URI-1.60/META.yml 2012-03-25 22:51:04.000000000 +0200 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: URI -version: 1.59 +version: 1.60 abstract: Uniform Resource Identifiers (absolute and relative) author: - Gisle Aas <[email protected]> @@ -17,7 +17,7 @@ perl: 5.008001 resources: MailingList: mailto:[email protected] - repository: http://gitorious.org/projects/perl-uri + repository: https://github.com/libwww-perl/uri no_index: directory: - t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.59/Makefile.PL new/URI-1.60/Makefile.PL --- old/URI-1.59/Makefile.PL 2011-08-14 09:10:58.000000000 +0200 +++ new/URI-1.60/Makefile.PL 2012-03-11 16:03:17.000000000 +0100 @@ -16,7 +16,7 @@ 'Business::ISBN' => 0, }, 'resources' => { - 'repository' => 'http://gitorious.org/projects/perl-uri', + 'repository' => 'https://github.com/libwww-perl/uri', 'MailingList' => 'mailto:[email protected]', } }, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.59/URI/QueryParam.pm new/URI-1.60/URI/QueryParam.pm --- old/URI-1.59/URI/QueryParam.pm 2009-05-28 06:20:38.000000000 +0200 +++ new/URI-1.60/URI/QueryParam.pm 2012-03-11 15:35:20.000000000 +0100 @@ -8,38 +8,30 @@ if (@_ == 0) { # get keys - my %seen; - my @keys; - for (my $i = 0; $i < @old; $i += 2) { - push(@keys, $old[$i]) unless $seen{$old[$i]}++; - } - return @keys; + my (%seen, $i); + return grep !($i++ % 2 || $seen{$_}++), @old; } my $key = shift; - my @i; - - for (my $i = 0; $i < @old; $i += 2) { - push(@i, $i) if $old[$i] eq $key; - } + my @i = grep $_ % 2 == 0 && $old[$_] eq $key, 0 .. $#old; if (@_) { my @new = @old; my @new_i = @i; my @vals = map { ref($_) eq 'ARRAY' ? @$_ : $_ } @_; - #print "VALS:@vals [@i]\n"; + while (@new_i > @vals) { - #print "REMOVE $new_i[-1]\n"; - splice(@new, pop(@new_i), 2); + splice @new, pop @new_i, 2; } - while (@vals > @new_i) { + if (@vals > @new_i) { my $i = @new_i ? $new_i[-1] + 2 : @new; - #print "SPLICE $i\n"; - splice(@new, $i, 0, $key => pop(@vals)); + my @splice = splice @vals, @new_i, @vals - @new_i; + + splice @new, $i, 0, map { $key => $_ } @splice; } - for (@vals) { + if (@vals) { #print "SET $new_i[0]\n"; - $new[shift(@new_i)+1] = $_; + @new[ map $_ + 1, @new_i ] = @vals; } $self->query_form(\@new); @@ -51,7 +43,8 @@ sub URI::_query::query_param_append { my $self = shift; my $key = shift; - $self->query_form($self->query_form, $key => \@_); # XXX + my @vals = map { ref $_ eq 'ARRAY' ? @$_ : $_ } @_; + $self->query_form($self->query_form, $key => \@vals); # XXX return; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.59/URI/_idna.pm new/URI-1.60/URI/_idna.pm --- old/URI-1.59/URI/_idna.pm 2009-12-27 23:12:43.000000000 +0100 +++ new/URI-1.60/URI/_idna.pm 2012-03-11 13:03:37.000000000 +0100 @@ -7,6 +7,13 @@ use URI::_punycode qw(encode_punycode decode_punycode); use Carp qw(croak); +BEGIN { + *URI::_idna::_ENV_::JOIN_LEAKS_UTF8_FLAGS = $] < 5.008_003 + ? sub () { 1 } + : sub () { 0 } + ; +} + my $ASCII = qr/^[\x00-\x7F]*\z/; sub encode { @@ -17,6 +24,8 @@ for (@labels) { $_ = ToASCII($_); } + + return eval 'join(".", @labels, @last_empty)' if URI::_idna::_ENV_::JOIN_LEAKS_UTF8_FLAGS; return join(".", @labels, @last_empty); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.59/URI.pm new/URI-1.60/URI.pm --- old/URI-1.59/URI.pm 2011-08-15 19:25:04.000000000 +0200 +++ new/URI-1.60/URI.pm 2012-03-25 22:47:59.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use vars qw($VERSION); -$VERSION = "1.59"; +$VERSION = "1.60"; use vars qw($ABS_REMOTE_LEADING_DOTS $ABS_ALLOW_RELATIVE_SCHEME $DEFAULT_QUERY_FORM_DELIMITER); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.59/t/file.t new/URI-1.60/t/file.t --- old/URI-1.59/t/file.t 2008-04-04 10:44:14.000000000 +0200 +++ new/URI-1.60/t/file.t 2012-03-11 16:40:21.000000000 +0100 @@ -11,7 +11,7 @@ "/foo/bar", "\\foo\\bar", "!foo:bar", ], [ "file:/foo/bar", "!/foo/bar", "!\\foo\\bar", "foo:bar", ], [ "foo/bar", "foo/bar", "foo\\bar", ":foo:bar",], -[ "file://foo/bar","!//foo/bar", "!\\\\foo\\bar", "!foo:bar"], +[ "file://foo3445x/bar","!//foo3445x/bar", "!\\\\foo3445x\\bar", "!foo3445x:bar"], [ "file://a:/", "!//a:/", "!A:\\", undef], [ "file:///A:/", "/A:/", "A:\\", undef], [ "file:///", "/", "\\", undef], diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.59/t/query-param.t new/URI-1.60/t/query-param.t --- old/URI-1.59/t/query-param.t 2008-04-04 10:44:14.000000000 +0200 +++ new/URI-1.60/t/query-param.t 2012-03-11 15:35:20.000000000 +0100 @@ -1,87 +1,72 @@ #!perl -w -print "1..18\n"; - use strict; +use Test::More tests => 19; + use URI; use URI::QueryParam; my $u = URI->new("http://www.sol.no?foo=4&bar=5&foo=5";); -my $h = $u->query_form_hash; -print "not " unless $h->{foo}[0] eq "4" && $h->{foo}[1] eq "5" && $h->{bar} eq "5"; -print "ok 1\n"; +is_deeply( + $u->query_form_hash, + { foo => [ 4, 5 ], bar => 5 }, + 'query_form_hash get' +); $u->query_form_hash({ a => 1, b => 2}); -print "not " unless $u->query eq "a=1&b=2" || $u->query eq "b=2&a=1"; -print "ok 2\n"; +ok $u->query eq "a=1&b=2" || $u->query eq "b=2&a=1", 'query_form_hash set'; $u->query("a=1&b=2&a=3&b=4&a=5"); -print "not " unless $u->query_param == 2 && join(":", $u->query_param) eq "a:b"; -print "ok 3\n"; +is join(':', $u->query_param), "a:b", 'query_param list keys'; -print "not " unless $u->query_param("a") eq "1" && - join(":", $u->query_param("a")) eq "1:3:5"; -print "ok 4\n"; +is $u->query_param("a"), "1", "query_param scalar return"; +is join(":", $u->query_param("a")), "1:3:5", "query_param list return"; -print "not " unless $u->query_param(a => 11 .. 14) eq "1"; -print "ok 5\n"; +is $u->query_param(a => 11 .. 15), 1, "query_param set return"; -print "not " unless $u->query eq "a=11&b=2&a=12&b=4&a=13&a=14"; -print "ok 6\n"; +is $u->query, "a=11&b=2&a=12&b=4&a=13&a=14&a=15", "param order"; -print "not " unless join(":", $u->query_param(a => 11)) eq "11:12:13:14"; -print "ok 7\n"; +is join(":", $u->query_param(a => 11)), "11:12:13:14:15", "old values returned"; -print "not " unless $u->query eq "a=11&b=2&b=4"; -print "ok 8\n"; +is $u->query, "a=11&b=2&b=4"; -print "not " unless $u->query_param_delete("a") eq "11"; -print "ok 9\n"; +is $u->query_param_delete("a"), "11", 'query_param_delete'; -print "not " unless $u->query eq "b=2&b=4"; -print "ok 10\n"; +is $u->query, "b=2&b=4"; $u->query_param_append(a => 1, 3, 5); $u->query_param_append(b => 6); -print "not " unless $u->query eq "b=2&b=4&a=1&a=3&a=5&b=6"; -print "ok 11\n"; +is $u->query, "b=2&b=4&a=1&a=3&a=5&b=6"; $u->query_param(a => []); # same as $u->query_param_delete("a"); -print "not " unless $u->query eq "b=2&b=4&b=6"; -print "ok 12\n"; +is $u->query, "b=2&b=4&b=6", 'delete by assigning empty list'; $u->query(undef); $u->query_param(a => 1, 2, 3); $u->query_param(b => 1); -print "not " unless $u->query eq 'a=3&a=2&a=1&b=1'; -print "ok 13\n"; +is $u->query, 'a=1&a=2&a=3&b=1', 'query_param from scratch'; $u->query_param_delete('a'); $u->query_param_delete('b'); -print "not " if $u->query; -print "ok 14\n"; +ok ! $u->query; -print "not " unless $u->as_string eq 'http://www.sol.no'; -print "ok 15\n"; +is $u->as_string, 'http://www.sol.no'; $u->query(undef); $u->query_param(a => 1, 2, 3); $u->query_param(b => 1); -print "not " unless $u->query eq 'a=3&a=2&a=1&b=1'; -print "ok 16\n"; +is $u->query, 'a=1&a=2&a=3&b=1'; $u->query_param('a' => []); $u->query_param('b' => []); -print "not " if $u->query; -print "ok 17\n"; +ok ! $u->query; -print "not " unless $u->as_string eq 'http://www.sol.no'; -print "ok 18\n"; +is $u->as_string, 'http://www.sol.no'; -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
