|
Lines 107-112
Link Here
|
| 107 |
], |
107 |
], |
| 108 |
marked_sections => 1); |
108 |
marked_sections => 1); |
| 109 |
|
109 |
|
|
|
110 |
# enable UTF-8 mode, |
| 111 |
# http://search.cpan.org/~gaas/HTML-Parser-3.45/Parser.pm#$p-%3Eutf8_mode , |
| 112 |
# if we're running perl 5.8 and HTML::Parser supports it. bug 4046. |
| 113 |
if ($] >= 5.008 && $self->can("utf8_mode")) { |
| 114 |
if (!eval { $self->utf8_mode(); 1; }) { |
| 115 |
dbg ("html: failed to enable UTF-8 mode (perl ver $] h:p ver $HTML::Parser::VERSION)"); |
| 116 |
} |
| 117 |
} |
| 118 |
|
| 110 |
$self; |
119 |
$self; |
| 111 |
} |
120 |
} |
| 112 |
|
121 |
|
