Text::Textile - kein HTML-Escaping mit bc bei spitzen Klammern (gelöst) - #174601 (Fragen zu Perl-Modulen)

GwenDragon

2014-04-03 12:11

User since
2005-01-17
14532 Artikel
Admin1

Laut Doku soll Text::Textile (Version 2.12) beim Markupcode bc eingebundene Klammern (<>) HTML-escapen.

https://metacpan.org/pod/Text::Textile#bc
bc

A "bc" signature is short for "block code", which implies a preformatted section like the "pre" block, but it also gets a <code> tag (or for XHTML 2, a <blockcode> tag is used instead).

Note that within a "bc" block, < and > are translated into HTML entities automatically.

Die aktuelle Version tut es aber nicht.

Testcase:

Code (perl): (dl )

use strict; use warnings;

use Text::Textile;

my $textile = Text::Textile->new;

my $code = <<'CODE';
bc.. <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" dir="ltr" lang="de" xml:lang="de">
<script src="/test/test.js" type="text/javascript"></script>
<head>
<title>Test</title>

bc. <?xml version="1.0" encoding="UTF-8"?>

bc. <script src="/test/test.js" type="text/javascript"></script>

CODE

print $textile->process($code);

ezeugt:

Code (html): (dl )

<pre><code><?xml version="1.0" encoding="UTF-8"?>
&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot; &quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&gt;
&lt;html xmlns=&quot;http://www.w3.org/1999/xhtml&quot; dir=&quot;ltr&quot; lang=&quot;de&quot; xml:lang=&quot;de&quot;&gt;
<script src="/test/test.js" type="text/javascript"></script>
&lt;head&gt;
&lt;title&gt;Test&lt;/title&gt;</code></pre>

<pre><code><?xml version="1.0" encoding="UTF-8"?></code></pre>

<pre><code><script src="/test/test.js" type="text/javascript"></script></code></pre>

bc maskiert also die Klammer bei <? ?> oder bei <script> nicht korrekt.

//EDIT:
ich habe einen funktionierenden Fix geschrieben.
Textile.pm / Diff

Bug und Patch wurde als Issue #3 bei GitHub an Maintainer gemeldet (ob er's fixt, weiß ich nicht).

Editiert von GwenDragon: Link auf aktuellen Fix

Anhänge

Last edited: 2014-07-14 19:58:14 +0200 (CEST)

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel