projects
/
catagits/HTML-Zoom.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
getting things synced up for a release
[catagits/HTML-Zoom.git]
/
lib
/
HTML
/
Zoom
/
Parser
/
BuiltIn.pm
diff --git
a/lib/HTML/Zoom/Parser/BuiltIn.pm
b/lib/HTML/Zoom/Parser/BuiltIn.pm
index
13ae444
..
1e87919
100644
(file)
--- a/
lib/HTML/Zoom/Parser/BuiltIn.pm
+++ b/
lib/HTML/Zoom/Parser/BuiltIn.pm
@@
-27,6
+27,10
@@
sub html_to_stream {
sub _hacky_tag_parser {
my ($text, $handler) = @_;
+ $text =~ m{^([^<]*)}g;
+ if ( length $1 ) { # leading PCDATA
+ $handler->({ type => 'TEXT', raw => $1 });
+ }
while (
$text =~ m{
(