r55355 - in /trunk/libdevel-stacktrace-ashtml-perl: Changes MANIFEST META.yml debian/changelog lib/Devel/StackTrace/AsHTML.pm t/encoding.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sat Apr  3 04:32:37 2010
New Revision: 55355

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

Added:
    trunk/libdevel-stacktrace-ashtml-perl/t/encoding.t
      - copied unchanged from r55354, branches/upstream/libdevel-stacktrace-ashtml-perl/current/t/encoding.t
Modified:
    trunk/libdevel-stacktrace-ashtml-perl/Changes
    trunk/libdevel-stacktrace-ashtml-perl/MANIFEST
    trunk/libdevel-stacktrace-ashtml-perl/META.yml
    trunk/libdevel-stacktrace-ashtml-perl/debian/changelog
    trunk/libdevel-stacktrace-ashtml-perl/lib/Devel/StackTrace/AsHTML.pm

Modified: trunk/libdevel-stacktrace-ashtml-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-ashtml-perl/Changes?rev=55355&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-ashtml-perl/Changes (original)
+++ trunk/libdevel-stacktrace-ashtml-perl/Changes Sat Apr  3 04:32:37 2010
@@ -1,4 +1,10 @@
 Revision history for Perl extension Devel::StackTrace::AsHTML
+
+0.09  Sun Mar 28 23:04:05 PDT 2010
+        - no warnings about # in qw()
+
+0.08  Sun Mar 28 20:35:26 PDT 2010
+        - Encode high bit characters as HTML entities.
 
 0.07  Sat Mar 27 06:31:23 PDT 2010
         - Hide the WithLexical recommendation from HTML

Modified: trunk/libdevel-stacktrace-ashtml-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-ashtml-perl/MANIFEST?rev=55355&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-ashtml-perl/MANIFEST (original)
+++ trunk/libdevel-stacktrace-ashtml-perl/MANIFEST Sat Apr  3 04:32:37 2010
@@ -26,6 +26,7 @@
 META.yml
 README
 t/00_compile.t
+t/encoding.t
 t/output.t
 xt/perlcritic.t
 xt/pod.t

Modified: trunk/libdevel-stacktrace-ashtml-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-ashtml-perl/META.yml?rev=55355&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-ashtml-perl/META.yml (original)
+++ trunk/libdevel-stacktrace-ashtml-perl/META.yml Sat Apr  3 04:32:37 2010
@@ -26,4 +26,4 @@
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://github.com/miyagawa/Devel-StackTrace-AsHTML.git
-version: 0.07
+version: 0.09

Modified: trunk/libdevel-stacktrace-ashtml-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-ashtml-perl/debian/changelog?rev=55355&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-ashtml-perl/debian/changelog (original)
+++ trunk/libdevel-stacktrace-ashtml-perl/debian/changelog Sat Apr  3 04:32:37 2010
@@ -1,3 +1,9 @@
+libdevel-stacktrace-ashtml-perl (0.09-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Sat, 03 Apr 2010 01:04:56 -0400
+
 libdevel-stacktrace-ashtml-perl (0.07-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libdevel-stacktrace-ashtml-perl/lib/Devel/StackTrace/AsHTML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-stacktrace-ashtml-perl/lib/Devel/StackTrace/AsHTML.pm?rev=55355&op=diff
==============================================================================
--- trunk/libdevel-stacktrace-ashtml-perl/lib/Devel/StackTrace/AsHTML.pm (original)
+++ trunk/libdevel-stacktrace-ashtml-perl/lib/Devel/StackTrace/AsHTML.pm Sat Apr  3 04:32:37 2010
@@ -2,20 +2,28 @@
 
 use strict;
 use 5.008_001;
-our $VERSION = '0.07';
+our $VERSION = '0.09';
 
 use Data::Dumper;
 use Devel::StackTrace;
 use Scalar::Util;
 
+no warnings 'qw';
+my %enc = qw( & &amp; > &gt; < &lt; " &quot; ' &#39; );
+
+# NOTE: because we don't know which encoding $str is in, or even if
+# $str is a wide character (decoded strings), we just leave the low
+# bits, including latin-1 range and encode everything higher as HTML
+# entities. I know this is NOT always correct, but should mostly work
+# in case $str is encoded in utf-8 bytes or wide chars. This is a
+# necessary workaround since we're rendering someone else's code which
+# we can't enforce string encodings.
+
 sub encode_html {
     my $str = shift;
-    $str =~ s/&/&amp;/g;
-    $str =~ s/>/&gt;/g;
-    $str =~ s/</&lt;/g;
-    $str =~ s/"/&quot;/g;
-    $str =~ s/'/&#39;/g;
-    return $str;
+    $str =~ s/([^\x00-\x21\x23-\x25\x28-\x3b\x3d\x3f-\xff])/$enc{$1} || '&#' . ord($1) . ';' /ge;
+    utf8::downgrade($str);
+    $str;
 }
 
 sub Devel::StackTrace::as_html {