Changeset 7834

Timestamp:

09/10/09 22:03:14 (2 years ago)

Author:

azawawi

Message:

[Padre] Applied cowens++ patch that fixes ticket:549 and fixes
[Padre] a bug with Pod::Simple::XHTML where <, <<=, and > are not
[Padre] escaped into their corresponding HTML entities.

File:

• trunk/Padre/lib/Padre/Pod2HTML.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Pod2HTML.pm

@@ -48 +48 @@
     $self->parse_string_document($input);
 
+    #FIXME: this takes care of a bug in Pod::Simple::XHTML
+    $self->{html} =~ s/<</&lt&lt;/g;
+    $self->{html} =~ s/< /&lt /g;
+    $self->{html} =~ s/<=/&lt=/g;
+
+    #FIXME: this is incredibly bad, but the anchors are predictible
+    $self->{html} =~ s#<a href=".*?">|</a>##g;
+
     return $self->{html};
 }
@@ -57 +65 @@
 sub new {
     my $class = shift;
-    my $self = $class->SUPER::new( output_fh => 1, @_ );
+    my $self = $class->SUPER::new(@_);
 
     # Ignore POD irregularities
     $self->no_whining(1);
     $self->no_errata_section(1);
+    $self->output_string(\$self->{html});
 
     return $self;
-}
-
-# Override emit to build html from scratch :)
-sub emit {
-    my $self = shift;
-    $self->{html} .= $self->{scratch};
 }