diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2012-08-28 04:46:04 -0400 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2012-08-28 04:46:04 -0400 |
commit | d555a68ca6475bbb6f7f60ae1bdcdffa99df351f (patch) | |
tree | 7687263eb1b87dc167f5505234750fb47431bfe7 /podwrapper.pl.in | |
parent | f23a5c468e959f86df89e2a4e8aa9160eca532f8 (diff) | |
download | libguestfs-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-x | podwrapper.pl.in | 3 |
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); |