r62289 - in /branches/upstream/liburi-perl/current: Changes META.yml URI.pm URI/Escape.pm URI/file.pm t/escape.t t/iri.t t/old-base.t

angelabad-guest at users.alioth.debian.org angelabad-guest at users.alioth.debian.org
Fri Sep 3 11:34:39 UTC 2010 

Author: angelabad-guest
Date: Fri Sep  3 11:33:38 2010
New Revision: 62289

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62289
Log:
[svn-upgrade] new version liburi-perl (1.55)

Modified:
    branches/upstream/liburi-perl/current/Changes
    branches/upstream/liburi-perl/current/META.yml
    branches/upstream/liburi-perl/current/URI.pm
    branches/upstream/liburi-perl/current/URI/Escape.pm
    branches/upstream/liburi-perl/current/URI/file.pm
    branches/upstream/liburi-perl/current/t/escape.t
    branches/upstream/liburi-perl/current/t/iri.t
    branches/upstream/liburi-perl/current/t/old-base.t

Modified: branches/upstream/liburi-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liburi-perl/current/Changes?rev=62289&op=diff
==============================================================================
--- branches/upstream/liburi-perl/current/Changes (original)
+++ branches/upstream/liburi-perl/current/Changes Fri Sep  3 11:33:38 2010
@@ -1,3 +1,16 @@
+2010-09-01   Gisle Aas <gisle at ActiveState.com>
+
+   Release 1.55
+
+   Gisle Aas (2):
+      Treat ? as a reserved character in file: URIs
+      " is not a URI character [RT#56421]
+
+   Torsten F<C3><B6>rtsch (1):
+      Avoid test failure unless defined $Config{useperlio}
+
+
+
 2010-03-31   Gisle Aas <gisle at ActiveState.com>
 
    Release 1.54

Modified: branches/upstream/liburi-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liburi-perl/current/META.yml?rev=62289&op=diff
==============================================================================
--- branches/upstream/liburi-perl/current/META.yml (original)
+++ branches/upstream/liburi-perl/current/META.yml Fri Sep  3 11:33:38 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               URI
-version:            1.54
+version:            1.55
 abstract:           Uniform Resource Identifiers (absolute and relative)
 author:
     - Gisle Aas <gisle at activestate.com>
@@ -20,7 +20,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.55_02
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/liburi-perl/current/URI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liburi-perl/current/URI.pm?rev=62289&op=diff
==============================================================================
--- branches/upstream/liburi-perl/current/URI.pm (original)
+++ branches/upstream/liburi-perl/current/URI.pm Fri Sep  3 11:33:38 2010
@@ -2,7 +2,7 @@
 
 use strict;
 use vars qw($VERSION);
-$VERSION = "1.54";
+$VERSION = "1.55";
 
 use vars qw($ABS_REMOTE_LEADING_DOTS $ABS_ALLOW_RELATIVE_SCHEME $DEFAULT_QUERY_FORM_DELIMITER);
 

Modified: branches/upstream/liburi-perl/current/URI/Escape.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liburi-perl/current/URI/Escape.pm?rev=62289&op=diff
==============================================================================
--- branches/upstream/liburi-perl/current/URI/Escape.pm (original)
+++ branches/upstream/liburi-perl/current/URI/Escape.pm Fri Sep  3 11:33:38 2010
@@ -159,7 +159,7 @@
 
 my %Unsafe = (
     RFC2732 => qr/[^A-Za-z0-9\-_.!~*'()]/,
-    RFC3986 => qr/[^A-Za-z0-9\-\._~"]/,
+    RFC3986 => qr/[^A-Za-z0-9\-\._~]/,
 );
 
 sub uri_escape

Modified: branches/upstream/liburi-perl/current/URI/file.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liburi-perl/current/URI/file.pm?rev=62289&op=diff
==============================================================================
--- branches/upstream/liburi-perl/current/URI/file.pm (original)
+++ branches/upstream/liburi-perl/current/URI/file.pm Fri Sep  3 11:33:38 2010
@@ -37,7 +37,6 @@
     $class;
 }
 
-sub path { shift->path_query(@_) }
 sub host { uri_unescape(shift->authority(@_)) }
 
 sub new

Modified: branches/upstream/liburi-perl/current/t/escape.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liburi-perl/current/t/escape.t?rev=62289&op=diff
==============================================================================
--- branches/upstream/liburi-perl/current/t/escape.t (original)
+++ branches/upstream/liburi-perl/current/t/escape.t Fri Sep  3 11:33:38 2010
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 11;
+use Test::More tests => 12;
 
 use URI::Escape;
 
@@ -13,6 +13,7 @@
 
 # New escapes in RFC 3986
 is uri_escape("~*'()"), "~%2A%27%28%29";
+is uri_escape("<\">"), "%3C%22%3E";
 
 is uri_escape(undef), undef;
 

Modified: branches/upstream/liburi-perl/current/t/iri.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liburi-perl/current/t/iri.t?rev=62289&op=diff
==============================================================================
--- branches/upstream/liburi-perl/current/t/iri.t (original)
+++ branches/upstream/liburi-perl/current/t/iri.t Fri Sep  3 11:33:38 2010
@@ -2,7 +2,14 @@
 
 use utf8;
 use strict;
-use Test::More tests => 26;
+use Test::More;
+use Config;
+
+if (defined $Config{useperlio}) {
+    plan tests=>26;
+} else {
+    plan skip_all=>'this perl doesn\'t support PerlIO layers';
+}
 
 use URI;
 use URI::IRI;

Modified: branches/upstream/liburi-perl/current/t/old-base.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liburi-perl/current/t/old-base.t?rev=62289&op=diff
==============================================================================
--- branches/upstream/liburi-perl/current/t/old-base.t (original)
+++ branches/upstream/liburi-perl/current/t/old-base.t Fri Sep  3 11:33:38 2010
@@ -205,7 +205,7 @@
 
 	'file://host/fseg/fs?g/fseg'
 	# don't escape ? for file: scheme
-	=> {    'host'=>'host', 'path'=>'/fseg/fs?g/fseg',
+	=> {    'host'=>'host', 'path'=>'/fseg/fs',
 		'as_string'=>'file://host/fseg/fs?g/fseg' },
 
 	'gopher://host'
@@ -931,7 +931,7 @@
 	 ["abc",         "file:/test?aas", "file:/abc"],
 #	 ["gopher:",     "",               "gopher:"],
 #	 ["?foo",        "http://abc/a",   "http://abc/a?foo"],
-	 ["?foo",        "file:/abc",      "file:/?foo"],
+         ["?foo",        "file:/abc",      "file:/abc?foo"],
 	 ["#foo",        "http://abc/a",   "http://abc/a#foo"],
 	 ["#foo",        "file:a",         "file:a#foo"],
 	 ["#foo",        "file:/a",         "file:/a#foo"],

More information about the Pkg-perl-cvs-commits mailing list