r41019 - in /trunk/libhttp-response-encoding-perl: Changes META.yml Makefile.PL debian/README.source debian/changelog debian/control debian/copyright debian/rules lib/HTTP/Response/Encoding.pm t/01-file.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Thu Jul 30 19:55:36 UTC 2009 

Author: jawnsy-guest
Date: Thu Jul 30 19:55:25 2009
New Revision: 41019

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=41019
Log:
* New upstream release
  + Fix for libwww-perl 5.827 which broke all tests (RT#47033)
* Added README.source
* Rewrote control file description
* Added myself to Uploaders and Copyright

Added:
    trunk/libhttp-response-encoding-perl/debian/README.source
Modified:
    trunk/libhttp-response-encoding-perl/Changes
    trunk/libhttp-response-encoding-perl/META.yml
    trunk/libhttp-response-encoding-perl/Makefile.PL
    trunk/libhttp-response-encoding-perl/debian/changelog
    trunk/libhttp-response-encoding-perl/debian/control
    trunk/libhttp-response-encoding-perl/debian/copyright
    trunk/libhttp-response-encoding-perl/debian/rules
    trunk/libhttp-response-encoding-perl/lib/HTTP/Response/Encoding.pm
    trunk/libhttp-response-encoding-perl/t/01-file.t

Modified: trunk/libhttp-response-encoding-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-response-encoding-perl/Changes?rev=41019&op=diff
==============================================================================
--- trunk/libhttp-response-encoding-perl/Changes (original)
+++ trunk/libhttp-response-encoding-perl/Changes Thu Jul 30 19:55:25 2009
@@ -1,8 +1,15 @@
 # Revision history for HTTP-Response-Encoding
 #
-# $Id: Changes,v 0.5 2007/05/12 09:24:15 dankogai Exp $
+# $Id: Changes,v 0.6 2009/07/28 21:25:25 dankogai Exp dankogai $
 # 
-$Revision: 0.5 $ $Date: 2007/05/12 09:24:15 $
+$Revision: 0.6 $ $Date: 2009/07/28 21:25:25 $
+! lib/HTTP/Response/Encoding.pm t/01-file.t
+  Addressed RT#47033:
+    new libwww-perl-5.827 release from 15.06.2009 breaks all tests
+  (Tested both on lwp5.826 and lwp5.830)
+  http://rt.cpan.org/Ticket/Display.html?47033
+
+0.05 2007/05/12 09:24:15
 ! lib/HTTP/Response/Encoding.pm
   removed method
   - decoded_content() because HTTP::Message already has that

Modified: trunk/libhttp-response-encoding-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-response-encoding-perl/META.yml?rev=41019&op=diff
==============================================================================
--- trunk/libhttp-response-encoding-perl/META.yml (original)
+++ trunk/libhttp-response-encoding-perl/META.yml Thu Jul 30 19:55:25 2009
@@ -1,16 +1,24 @@
 --- #YAML:1.0
-name:                HTTP-Response-Encoding
-version:             0.05
-abstract:            Adds encoding() to HTTP::Response
-license:             ~
-generated_by:        ExtUtils::MakeMaker version 6.32
-distribution_type:   module
-requires:     
-    Encode:                        2
-    HTTP::Response:                0
-    Test::More:                    0
-meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.2.html
-    version: 1.2
+name:               HTTP-Response-Encoding
+version:            0.06
+abstract:           Adds encoding() to HTTP::Response
 author:
     - Dan Kogai <dankogai at dan.co.jp>
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:
+    Encode:          2
+    HTTP::Response:  0
+    Test::More:      0
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.54
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: trunk/libhttp-response-encoding-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-response-encoding-perl/Makefile.PL?rev=41019&op=diff
==============================================================================
--- trunk/libhttp-response-encoding-perl/Makefile.PL (original)
+++ trunk/libhttp-response-encoding-perl/Makefile.PL Thu Jul 30 19:55:25 2009
@@ -12,6 +12,7 @@
     PREREQ_PM => {
         'Encode'         => 2.00,
         'Test::More'     => 0,
+	# 'HTTP::Message'  => 5.827,
         'HTTP::Response' => 0,
       },
     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },

Added: trunk/libhttp-response-encoding-perl/debian/README.source
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-response-encoding-perl/debian/README.source?rev=41019&op=file
==============================================================================
--- trunk/libhttp-response-encoding-perl/debian/README.source (added)
+++ trunk/libhttp-response-encoding-perl/debian/README.source Thu Jul 30 19:55:25 2009
@@ -1,0 +1,5 @@
+This package uses quilt to manage all modifications to the upstream
+source.  Changes are stored in the source package as diffs in
+debian/patches and applied during the build.
+ 
+See /usr/share/doc/quilt/README.source for a detailed explanation.

Modified: trunk/libhttp-response-encoding-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-response-encoding-perl/debian/changelog?rev=41019&op=diff
==============================================================================
--- trunk/libhttp-response-encoding-perl/debian/changelog (original)
+++ trunk/libhttp-response-encoding-perl/debian/changelog Thu Jul 30 19:55:25 2009
@@ -1,3 +1,13 @@
+libhttp-response-encoding-perl (0.06-1) UNRELEASED; urgency=low
+
+  * New upstream release
+    + Fix for libwww-perl 5.827 which broke all tests (RT#47033)
+  * Added README.source
+  * Rewrote control file description
+  * Added myself to Uploaders and Copyright
+
+ -- Jonathan Yu <frequency at cpan.org>  Thu, 30 Jul 2009 11:39:21 -0400
+
 libhttp-response-encoding-perl (0.05-2) unstable; urgency=low
 
   [ gregor herrmann ]

Modified: trunk/libhttp-response-encoding-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-response-encoding-perl/debian/control?rev=41019&op=diff
==============================================================================
--- trunk/libhttp-response-encoding-perl/debian/control (original)
+++ trunk/libhttp-response-encoding-perl/debian/control Thu Jul 30 19:55:25 2009
@@ -6,7 +6,7 @@
  libtest-pod-perl, libtest-pod-coverage-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Rene Mayorga <rmayorga at debian.org>,
- gregor herrmann <gregoa at debian.org>
+ gregor herrmann <gregoa at debian.org>, Jonathan Yu <frequency at cpan.org>
 Standards-Version: 3.8.2
 Homepage: http://search.cpan.org/dist/HTTP-Response-Encoding/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libhttp-response-encoding-perl/
@@ -15,6 +15,9 @@
 Package: libhttp-response-encoding-perl
 Architecture: all
 Depends: ${perl:Depends}, ${misc:Depends}, libwww-perl (>= 5.827)
-Description: set of encoding() methods for HTTP::Response
- HTTP::Response:Enconding adds methods to better handle encoded responses from 
- HTTP::Response
+Description: Perl module extending HTTP::Response encoding handling
+ HTTP::Response::Encoding is a Perl module that extends HTTP::Response class,
+ providing a simple and convenient way to extract various information about
+ encoded responses, including its character set. It can extract the character
+ set exactly as it appears in the Content-Type header and it also understands
+ the meta http-equiv tag in the response body.

Modified: trunk/libhttp-response-encoding-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-response-encoding-perl/debian/copyright?rev=41019&op=diff
==============================================================================
--- trunk/libhttp-response-encoding-perl/debian/copyright (original)
+++ trunk/libhttp-response-encoding-perl/debian/copyright Thu Jul 30 19:55:25 2009
@@ -5,13 +5,13 @@
 Upstream-Name: HTTP-Response-Encoding
 
 Files: *
-Copyright: 2007 Dan Kogai, all rights reserved.
+Copyright: 2007, Dan Kogai <dankogai at dan.co.jp>
 License-Alias: Perl
 License: Artistic | GPL-1+
 
 Files: debian/*
-Copyright: 2008-2009 various members of the Debian Perl Group, cf
- debian/changelog
+Copyright: 2009, Jonathan Yu <frequency at cpan.org>
+ 2008-2009 various members of the Debian Perl Group, cf debian/changelog
 License: Artistic | GPL-1+
 
 License: Artistic

Modified: trunk/libhttp-response-encoding-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-response-encoding-perl/debian/rules?rev=41019&op=diff
==============================================================================
--- trunk/libhttp-response-encoding-perl/debian/rules (original)
+++ trunk/libhttp-response-encoding-perl/debian/rules Thu Jul 30 19:55:25 2009
@@ -1,3 +1,4 @@
 #!/usr/bin/make -f
+
 %:
 	dh --with quilt $@

Modified: trunk/libhttp-response-encoding-perl/lib/HTTP/Response/Encoding.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-response-encoding-perl/lib/HTTP/Response/Encoding.pm?rev=41019&op=diff
==============================================================================
--- trunk/libhttp-response-encoding-perl/lib/HTTP/Response/Encoding.pm (original)
+++ trunk/libhttp-response-encoding-perl/lib/HTTP/Response/Encoding.pm Thu Jul 30 19:55:25 2009
@@ -1,11 +1,20 @@
 package HTTP::Response::Encoding;
 use warnings;
 use strict;
-our $VERSION = sprintf "%d.%02d", q$Revision: 0.5 $ =~ /(\d+)/g;
+our $VERSION = sprintf "%d.%02d", q$Revision: 0.6 $ =~ /(\d+)/g;
 
 sub HTTP::Response::charset {
     my $self = shift;
     return $self->{__charset} if exists $self->{__charset};
+    if ($self->can('content_charset')){
+	# To suppress:
+	# Parsing of undecoded UTF-8 will give garbage when decoding entities
+	local $SIG{__WARN__} = sub {};
+	my $charset = $self->content_charset;
+	$self->{__charset} = $charset;
+	return $charset;
+    }
+
     my $content_type = $self->headers->header('Content-Type');
     return unless $content_type;
     $content_type =~ /charset=([A-Za-z0-9_\-]+)/io;
@@ -32,7 +41,7 @@
 
 =head1 VERSION
 
-$Id: Encoding.pm,v 0.5 2007/05/12 09:24:15 dankogai Exp $
+$Id: Encoding.pm,v 0.6 2009/07/28 21:25:25 dankogai Exp dankogai $
 
 =cut
 

Modified: trunk/libhttp-response-encoding-perl/t/01-file.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-response-encoding-perl/t/01-file.t?rev=41019&op=diff
==============================================================================
--- trunk/libhttp-response-encoding-perl/t/01-file.t (original)
+++ trunk/libhttp-response-encoding-perl/t/01-file.t Thu Jul 30 19:55:25 2009
@@ -1,4 +1,3 @@
-#!perl
 #!perl -T
 
 use strict;
@@ -55,4 +54,8 @@
 $uri->path(File::Spec->catfile($cwd, "t", "t-null.html"));
 my $res = $ua->get($uri);
 die unless $res->is_success;
-is $res->encoding, undef, "res->encoding eq undef";
+if (defined $res->encoding){
+    is $res->encoding, "ascii", "res->encoding is ascii";
+}else{
+    ok !$res->encoding, "res->encoding is undef";
+}

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