Changeset 1867
- Timestamp:
- 11/27/06 12:20:19
- Files:
-
- branches/feature-geo/plagger/lib/Plagger/Text.pm (modified) (1 diff)
- branches/feature-geo/plagger/t/core/text.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/feature-geo/plagger/lib/Plagger/Text.pm
r1741 r1867 20 20 utf8::decode($text) unless utf8::is_utf8($text); 21 21 22 my @tags = $text =~ m!<(\w+) \s?/?>!g;22 my @tags = $text =~ m!<(\w+)(?:\s*\w+=["'][^"']*["'])?\s*/?>!g; 23 23 my @unknown = grep !$HTML::Tagset::isKnown{$_}, @tags; 24 24 25 my $type; 25 26 if (@unknown > @tags / 2) { branches/feature-geo/plagger/t/core/text.t
r1741 r1867 88 88 html: <p>Foo Bar <foo /></p> 89 89 90 90 === A tags with attributes 91 --- input 92 <a href="http://maps.google.co.jp/?q=+35.123456,+135.123456">Foo</a> 93 --- expected 94 type: html 95 plaintext: Foo 96 html: <a href="http://maps.google.co.jp/?q=+35.123456,+135.123456">Foo</a>
