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
jawnsy-guest at users.alioth.debian.org
Sat Apr 3 04:32:46 UTC 2010
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( & & > > < < " " ' ' );
+
+# 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/&/&/g;
- $str =~ s/>/>/g;
- $str =~ s/</</g;
- $str =~ s/"/"/g;
- $str =~ s/'/'/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 {
More information about the Pkg-perl-cvs-commits
mailing list