Hello community,
here is the log from the commit of package perl-URI for openSUSE:Factory
checked in at Mon Nov 22 14:08:16 CET 2010.
--------
--- perl-URI/perl-URI.changes 2010-09-04 21:31:21.000000000 +0200
+++ perl-URI/perl-URI.changes 2010-11-22 13:39:59.000000000 +0100
@@ -1,0 +2,6 @@
+Mon Nov 22 12:53:06 CET 2010 - anicka@suse.cz
+
+- update to 1.56
+ * Don't depend on DNS for the heuristics test
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
URI-1.55.tar.bz2
New:
----
URI-1.56.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-URI.spec ++++++
--- /var/tmp/diff_new_pack.f0TDkX/_old 2010-11-22 14:06:21.000000000 +0100
+++ /var/tmp/diff_new_pack.f0TDkX/_new 2010-11-22 14:06:21.000000000 +0100
@@ -1,5 +1,5 @@
#
-# spec file for package perl-URI (Version 1.55)
+# spec file for package perl-URI (Version 1.56)
#
# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
@@ -22,7 +22,7 @@
Name: perl-URI
%define cpan_name URI
Summary: Uniform Resource Identifiers (absolute and relative)
-Version: 1.55
+Version: 1.56
Release: 1
License: GPL+ or Artistic
Group: Development/Libraries/Perl
++++++ URI-1.55.tar.bz2 -> URI-1.56.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.55/Changes new/URI-1.56/Changes
--- old/URI-1.55/Changes 2010-09-01 23:34:41.000000000 +0200
+++ new/URI-1.56/Changes 2010-10-06 22:33:29.000000000 +0200
@@ -1,3 +1,11 @@
+2010-10-06 Gisle Aas
+
+ Release 1.56
+
+ Don't depend on DNS for the heuristics test
+
+
+
2010-09-01 Gisle Aas
Release 1.55
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.55/META.yml new/URI-1.56/META.yml
--- old/URI-1.55/META.yml 2010-09-01 23:35:31.000000000 +0200
+++ new/URI-1.56/META.yml 2010-10-06 22:34:14.000000000 +0200
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: URI
-version: 1.55
+version: 1.56
abstract: Uniform Resource Identifiers (absolute and relative)
author:
- Gisle Aas
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.55/URI.pm new/URI-1.56/URI.pm
--- old/URI-1.55/URI.pm 2010-09-01 23:32:24.000000000 +0200
+++ new/URI-1.56/URI.pm 2010-10-06 22:32:18.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = "1.55";
+$VERSION = "1.56";
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.55/t/heuristic.t new/URI-1.56/t/heuristic.t
--- old/URI-1.55/t/heuristic.t 2010-03-31 09:02:38.000000000 +0200
+++ new/URI-1.56/t/heuristic.t 2010-10-06 22:29:14.000000000 +0200
@@ -1,8 +1,15 @@
#!perl -w
-if (-f "OFFLINE") {
- print "1..0";
- exit;
+BEGIN {
+ # mock up a gethostbyname that always works :-)
+ *CORE::GLOBAL::gethostbyname = sub {
+ my $name = shift;
+ #print "# gethostbyname [$name]\n";
+ die if wantarray;
+ return 1 if $name =~ /^www\.perl\.(com|org|ca|su)\.$/;
+ return 1 if $name eq "www.perl.co.uk\.";
+ return 0;
+ };
}
print "1..20\n";
@@ -41,90 +48,72 @@
}
print "ok 5\n";
-if (gethostbyname("www.perl.com") && gethostbyname("www.perl.co.uk") && !gethostbyname("www.perl.bv")) {
- # DNS works, let's run tests 6..12
-
- {
- local $ENV{LC_ALL} = "";
- local $ENV{LANG} = "";
- local $ENV{HTTP_ACCEPT_LANGUAGE} = "";
-
- $ENV{LC_ALL} = "en_GB.UTF-8";
- undef $URI::Heuristic::MY_COUNTRY;
- 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\.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 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 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 11\n";
+{
+ local $ENV{LC_ALL} = "";
+ local $ENV{LANG} = "";
+ local $ENV{HTTP_ACCEPT_LANGUAGE} = "";
- $URI::Heuristic::MY_COUNTRY = "gb";
+ $ENV{LC_ALL} = "en_GB.UTF-8";
+ undef $URI::Heuristic::MY_COUNTRY;
print "not " unless uf_urlstr("perl/camel.gif") =~ m,^http://www\.perl\.(org|co)\.uk/camel\.gif$,;
- print "ok 12\n";
+ print "ok 6\n";
- $ENV{URL_GUESS_PATTERN} = "www.ACME.org www.ACME.com";
- print "not " unless uf_urlstr("perl") eq "http://www.perl.org";
- print "ok 13\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\.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";
-} else {
- # don't make the innocent worry
- print "Skipping test 6-12 because DNS does not work\n";
- for (6..13) { print "ok $_\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 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 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 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 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 13\n";
{
-local $ENV{URL_GUESS_PATTERN} = "";
-print "not " unless uf_urlstr("perl") eq "http://perl";
-print "ok 14\n";
+ local $ENV{URL_GUESS_PATTERN} = "";
+ print "not " unless uf_urlstr("perl") eq "http://perl";
+ print "ok 14\n";
-print "not " unless uf_urlstr("http:80") eq "http:80";
-print "ok 15\n";
+ print "not " unless uf_urlstr("http:80") eq "http:80";
+ print "ok 15\n";
-print "not " unless uf_urlstr("mailto:gisle\@aas.no") eq "mailto:gisle\@aas.no";
-print "ok 16\n";
+ print "not " unless uf_urlstr("mailto:gisle\@aas.no") eq "mailto:gisle\@aas.no";
+ print "ok 16\n";
-print "not " unless uf_urlstr("gisle\@aas.no") eq "mailto:gisle\@aas.no";
-print "ok 17\n";
+ print "not " unless uf_urlstr("gisle\@aas.no") eq "mailto:gisle\@aas.no";
+ print "ok 17\n";
-print "not " unless uf_urlstr("Gisle.Aas\@aas.perl.org") eq "mailto:Gisle.Aas\@aas.perl.org";
-print "ok 18\n";
+ print "not " unless uf_urlstr("Gisle.Aas\@aas.perl.org") eq "mailto:Gisle.Aas\@aas.perl.org";
+ print "ok 18\n";
-print "not " unless uf_url("gopher.sn.no")->scheme eq "gopher";
-print "ok 19\n";
+ print "not " unless uf_url("gopher.sn.no")->scheme eq "gopher";
+ 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 20\n";
+ print "not " unless uf_urlstr("123.3.3.3:8080/foo") eq "http://123.3.3.3:8080/foo";
+ print "ok 20\n";
}
-
-#
-#print "not " unless uf_urlstr("some-site") eq "http://www.some-site.com";
-#print "ok 15\n";
-#
-#print "not " unless uf_urlstr("some-site.com") eq "http://some-site.com";
-#print "ok 16\n";
-#
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org