r60218 - in /trunk/libplack-perl: ./ debian/ lib/ lib/Plack/ lib/Plack/Middleware/ lib/Plack/Server/ t/Plack-Middleware/ t/Plack-Util/

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Sun Jul 11 19:14:14 UTC 2010 

Author: gregoa
Date: Sun Jul 11 19:14:03 2010
New Revision: 60218

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60218
Log:
New upstream release.

Added:
    trunk/libplack-perl/t/Plack-Middleware/lint_utf8_false_alarm.t
      - copied unchanged from r60217, branches/upstream/libplack-perl/current/t/Plack-Middleware/lint_utf8_false_alarm.t
    trunk/libplack-perl/t/Plack-Util/inline_object.t
      - copied unchanged from r60217, branches/upstream/libplack-perl/current/t/Plack-Util/inline_object.t
Modified:
    trunk/libplack-perl/Changes
    trunk/libplack-perl/MANIFEST
    trunk/libplack-perl/META.yml
    trunk/libplack-perl/debian/changelog
    trunk/libplack-perl/lib/Plack.pm
    trunk/libplack-perl/lib/Plack/Middleware/Lint.pm
    trunk/libplack-perl/lib/Plack/Request.pm
    trunk/libplack-perl/lib/Plack/Response.pm
    trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm

Modified: trunk/libplack-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/Changes?rev=60218&op=diff
==============================================================================
--- trunk/libplack-perl/Changes (original)
+++ trunk/libplack-perl/Changes Sun Jul 11 19:14:03 2010
@@ -1,6 +1,9 @@
 Revision history for Perl extension Plack
 
 Take a look at http://github.com/miyagawa/Plack/issues for the planned changes before 1.0 release.
+
+0.9941  Thu Jul  8 18:17:30 PDT 2010
+        - Makes Lint not warn about ASCII-only strings with UTF8 flag because they're safe
 
 0.9940  Fri Jul  2 23:37:51 PDT 2010
         - Fixed META.yml

Modified: trunk/libplack-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/MANIFEST?rev=60218&op=diff
==============================================================================
--- trunk/libplack-perl/MANIFEST (original)
+++ trunk/libplack-perl/MANIFEST Sun Jul 11 19:14:03 2010
@@ -181,6 +181,7 @@
 t/Plack-Middleware/httpexceptions_streaming.t
 t/Plack-Middleware/jsonp.t
 t/Plack-Middleware/lint.t
+t/Plack-Middleware/lint_utf8_false_alarm.t
 t/Plack-Middleware/log4perl.t
 t/Plack-Middleware/log_dispatch.t
 t/Plack-Middleware/method_override.t
@@ -257,6 +258,7 @@
 t/Plack-Util/headers_obj.t
 t/Plack-Util/Hello.pm
 t/Plack-Util/hello.psgi
+t/Plack-Util/inline_object.t
 t/Plack-Util/io_with_path.t
 t/Plack-Util/is_real_fh.t
 t/Plack-Util/load.t

Modified: trunk/libplack-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/META.yml?rev=60218&op=diff
==============================================================================
--- trunk/libplack-perl/META.yml (original)
+++ trunk/libplack-perl/META.yml Sun Jul 11 19:14:03 2010
@@ -38,4 +38,4 @@
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://github.com/miyagawa/Plack.git
-version: 0.9940
+version: 0.9941

Modified: trunk/libplack-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/debian/changelog?rev=60218&op=diff
==============================================================================
--- trunk/libplack-perl/debian/changelog (original)
+++ trunk/libplack-perl/debian/changelog Sun Jul 11 19:14:03 2010
@@ -1,3 +1,9 @@
+libplack-perl (0.9941-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Sun, 11 Jul 2010 21:13:28 +0200
+
 libplack-perl (0.9940-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libplack-perl/lib/Plack.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack.pm?rev=60218&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack.pm (original)
+++ trunk/libplack-perl/lib/Plack.pm Sun Jul 11 19:14:03 2010
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9940';
+our $VERSION = '0.9941';
 $VERSION = eval $VERSION;
 
 1;

Modified: trunk/libplack-perl/lib/Plack/Middleware/Lint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Middleware/Lint.pm?rev=60218&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Middleware/Lint.pm (original)
+++ trunk/libplack-perl/lib/Plack/Middleware/Lint.pm Sun Jul 11 19:14:03 2010
@@ -116,11 +116,19 @@
         $croak->('body should be an array ref or filehandle');
     }
 
-    if (ref $res->[2] eq 'ARRAY' && grep utf8::is_utf8($_), @{$res->[2]}) {
+    if (ref $res->[2] eq 'ARRAY' && grep _is_really_utf8($_), @{$res->[2]}) {
         $croak->('body must be bytes and should not contain wide characters (UTF-8 strings).');
     }
 
     return $res;
+}
+
+# NOTE: Some modules like HTML:: or XML:: could possibly generate
+# ASCII only strings with utf8 flags on. They're actually safe to
+# print, so there's no need to give warnings about it.
+sub _is_really_utf8 {
+    my $str = shift;
+    utf8::is_utf8($str) && $str =~ /[^\x00-\x7f]/;
 }
 
 1;

Modified: trunk/libplack-perl/lib/Plack/Request.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Request.pm?rev=60218&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Request.pm (original)
+++ trunk/libplack-perl/lib/Plack/Request.pm Sun Jul 11 19:14:03 2010
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9940';
+our $VERSION = '0.9941';
 $VERSION = eval $VERSION;
 
 use HTTP::Headers;

Modified: trunk/libplack-perl/lib/Plack/Response.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Response.pm?rev=60218&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Response.pm (original)
+++ trunk/libplack-perl/lib/Plack/Response.pm Sun Jul 11 19:14:03 2010
@@ -1,7 +1,7 @@
 package Plack::Response;
 use strict;
 use warnings;
-our $VERSION = '0.9940';
+our $VERSION = '0.9941';
 $VERSION = eval $VERSION;
 
 use Plack::Util::Accessor qw(body status);

Modified: trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm?rev=60218&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm (original)
+++ trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm Sun Jul 11 19:14:03 2010
@@ -1,6 +1,6 @@
 package Plack::Server::ServerSimple;
 use strict;
-our $VERSION = '0.9940';
+our $VERSION = '0.9941';
 $VERSION = eval $VERSION;
 
 use parent qw(Plack::Handler::HTTP::Server::Simple);

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