summaryrefslogtreecommitdiffstats
path: root/podwrapper.pl.in
diff options
context:
space:
mode:
authorRichard W.M. Jones <rjones@redhat.com>2012-08-28 04:46:04 -0400
committerRichard W.M. Jones <rjones@redhat.com>2012-08-28 04:46:04 -0400
commitd555a68ca6475bbb6f7f60ae1bdcdffa99df351f (patch)
tree7687263eb1b87dc167f5505234750fb47431bfe7 /podwrapper.pl.in
parentf23a5c468e959f86df89e2a4e8aa9160eca532f8 (diff)
downloadlibguestfs-d555a68ca6475bbb6f7f60ae1bdcdffa99df351f.tar.gz
libguestfs-d555a68ca6475bbb6f7f60ae1bdcdffa99df351f.tar.xz
libguestfs-d555a68ca6475bbb6f7f60ae1bdcdffa99df351f.zip
podwrapper: Ignore $parser->html_charset if it fails (thanks Wulf C. Krueger).
This method was added in Pod::Simple 3.16 so earlier versions of Perl won't have it. It's not the end of the world if we don't set it.
Diffstat (limited to 'podwrapper.pl.in')
-rwxr-xr-xpodwrapper.pl.in3
1 files changed, 2 insertions, 1 deletions
diff --git a/podwrapper.pl.in b/podwrapper.pl.in
index db1200c1..f9b61f0e 100755
--- a/podwrapper.pl.in
+++ b/podwrapper.pl.in
@@ -465,7 +465,8 @@ if ($html) {
my $parser = Podwrapper::XHTML->new;
my $output;
$parser->output_string (\$output);
- $parser->html_charset ("UTF-8");
+ # Added in Pod::Simple 3.16, 2011-03-14.
+ eval { $parser->html_charset ("UTF-8") };
$parser->html_css ("pod.css");
$parser->index (1);
$parser->parse_string_document ($content);