Hello community, here is the log from the commit of package perl-URI for openSUSE:Factory checked in at Sat Apr 3 00:12:45 CEST 2010. -------- --- perl-URI/perl-URI.changes 2010-03-26 13:40:02.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-URI/perl-URI.changes 2010-04-02 13:24:06.000000000 +0200 @@ -1,0 +2,6 @@ +Thu Apr 1 18:09:05 CEST 2010 - anicka@suse.cz + +- update to 1.54 + * Fix heuristic test fails on hosts in .su (or .uk) domains + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- URI-1.53.tar.bz2 New: ---- URI-1.54.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-URI.spec ++++++ --- /var/tmp/diff_new_pack.Xqodho/_old 2010-04-03 00:12:20.000000000 +0200 +++ /var/tmp/diff_new_pack.Xqodho/_new 2010-04-03 00:12:20.000000000 +0200 @@ -1,5 +1,5 @@ # -# spec file for package perl-URI (Version 1.53) +# spec file for package perl-URI (Version 1.54) # # Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. # @@ -21,7 +21,7 @@ Name: perl-URI %define cpan_name %( echo %{name} | %{__sed} -e 's,perl-,,' ) Summary: URI - Uniform Resource Identifiers (absolute and relative) -Version: 1.53 +Version: 1.54 Release: 1 License: Artistic License .. Group: Development/Libraries/Perl ++++++ URI-1.53.tar.bz2 -> URI-1.54.tar.bz2 ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.53/Changes new/URI-1.54/Changes --- old/URI-1.53/Changes 2010-03-14 14:43:29.000000000 +0100 +++ new/URI-1.54/Changes 2010-03-31 09:09:53.000000000 +0200 @@ -1,3 +1,12 @@ +2010-03-31 Gisle Aas <gisle@ActiveState.com> + + Release 1.54 + + Alex Kapranoff (1): + Fix heuristic test fails on hosts in .su (or .uk) domains [RT#56135] + + + 2010-03-14 Gisle Aas <gisle@ActiveState.com> Release 1.53 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.53/META.yml new/URI-1.54/META.yml --- old/URI-1.53/META.yml 2010-03-14 14:43:52.000000000 +0100 +++ new/URI-1.54/META.yml 2010-03-31 09:10:41.000000000 +0200 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: URI -version: 1.53 +version: 1.54 abstract: Uniform Resource Identifiers (absolute and relative) author: - Gisle Aas <gisle@activestate.com> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.53/URI.pm new/URI-1.54/URI.pm --- old/URI-1.53/URI.pm 2010-03-14 14:43:29.000000000 +0100 +++ new/URI-1.54/URI.pm 2010-03-31 09:08:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use vars qw($VERSION); -$VERSION = "1.53"; +$VERSION = "1.54"; 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.53/t/heuristic.t new/URI-1.54/t/heuristic.t --- old/URI-1.53/t/heuristic.t 2010-03-14 14:43:17.000000000 +0100 +++ new/URI-1.54/t/heuristic.t 2010-03-31 09:02:38.000000000 +0200 @@ -5,7 +5,7 @@ exit; } -print "1..19\n"; +print "1..20\n"; use URI::Heuristic qw(uf_urlstr uf_url); if (shift) { @@ -54,63 +54,71 @@ print "not " unless uf_urlstr("perl/camel.gif") =~ m,^http://www\.perl\.(org|co)\.uk/camel\.gif$,; print "ok 6\n"; + use Net::Domain; $ENV{LC_ALL} = "C"; + { no warnings; *Net::Domain::hostfqdn = sub { return 'vasya.su' } } undef $URI::Heuristic::MY_COUNTRY; - print "not " unless uf_urlstr("perl/camel.gif") =~ m,^http://www\.perl\.(com|org)/camel\.gif$,; + print "not " unless uf_urlstr("perl/camel.gif") =~ m,^http://www\.perl\.su/camel\.gif$,; print "ok 7\n"; + $ENV{LC_ALL} = "C"; + { no warnings; *Net::Domain::hostfqdn = sub { return '' } } + undef $URI::Heuristic::MY_COUNTRY; + print "not " unless uf_urlstr("perl/camel.gif") =~ m,^http://www\.perl\.(com|org)/camel\.gif$,; + print "ok 8\n"; + $ENV{HTTP_ACCEPT_LANGUAGE} = "en-ca"; undef $URI::Heuristic::MY_COUNTRY; print "not " unless uf_urlstr("perl/camel.gif") eq "http://www.perl.ca/camel.gif"; - print "ok 8\n"; + print "ok 9\n"; } $URI::Heuristic::MY_COUNTRY = "bv"; print "not " unless uf_urlstr("perl/camel.gif") =~ m,^http://www\.perl\.(com|org)/camel\.gif$,; - print "ok 9\n"; + print "ok 10\n"; # Backwards compatibility; uk != United Kingdom in ISO 3166 $URI::Heuristic::MY_COUNTRY = "uk"; print "not " unless uf_urlstr("perl/camel.gif") =~ m,^http://www\.perl\.(org|co)\.uk/camel\.gif$,; - print "ok 10\n"; + print "ok 11\n"; $URI::Heuristic::MY_COUNTRY = "gb"; print "not " unless uf_urlstr("perl/camel.gif") =~ m,^http://www\.perl\.(org|co)\.uk/camel\.gif$,; - print "ok 11\n"; + print "ok 12\n"; $ENV{URL_GUESS_PATTERN} = "www.ACME.org www.ACME.com"; print "not " unless uf_urlstr("perl") eq "http://www.perl.org"; - print "ok 12\n"; + print "ok 13\n"; } else { # don't make the innocent worry print "Skipping test 6-12 because DNS does not work\n"; - for (6..12) { print "ok $_\n"; } + for (6..13) { print "ok $_\n"; } } { local $ENV{URL_GUESS_PATTERN} = ""; print "not " unless uf_urlstr("perl") eq "http://perl"; -print "ok 13\n"; +print "ok 14\n"; print "not " unless uf_urlstr("http:80") eq "http:80"; -print "ok 14\n"; +print "ok 15\n"; print "not " unless uf_urlstr("mailto:gisle\@aas.no") eq "mailto:gisle\@aas.no"; -print "ok 15\n"; +print "ok 16\n"; print "not " unless uf_urlstr("gisle\@aas.no") eq "mailto:gisle\@aas.no"; -print "ok 16\n"; +print "ok 17\n"; print "not " unless uf_urlstr("Gisle.Aas\@aas.perl.org") eq "mailto:Gisle.Aas\@aas.perl.org"; -print "ok 17\n"; +print "ok 18\n"; print "not " unless uf_url("gopher.sn.no")->scheme eq "gopher"; -print "ok 18\n"; +print "ok 19\n"; print "not " unless uf_urlstr("123.3.3.3:8080/foo") eq "http://123.3.3.3:8080/foo"; -print "ok 19\n"; +print "ok 20\n"; } # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org