mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

podwrapper: Send errors to stderr and die if any errors seen.

Browse Source 
Enable a few POD options:

 - Don't generate an errata section in the output.

 - Send errors and warnings to stderr.

 - Die if any errors or warnings are seen while generating the outputs.
This commit is contained in:
Richard W.M. Jones
2016-04-22 09:03:48 +01:00
parent 71a4ffdd05
commit b23e149774
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
podwrapper.pl.in
View File

@@ -508,12 +508,16 @@ if ($man) {
stderr => 1, utf8 => 1
);
my $output;
$parser->no_errata_section (1);
$parser->complain_stderr (1);
$parser->output_string (\$output);
$parser->parse_string_document ($content)
or die "$progname: could not parse input document";
open OUT, ">$man" or die "$progname: $man: $!";
print OUT $output or die "$progname: $man: $!";
close OUT or die "$progname: $man: $!";
die "$input: errors or warnings in this POD file, see messages above\n"
if $parser->any_errata_seen;
print "$progname: wrote $man\n";
}
@@ -593,6 +597,8 @@ if ($html) {
my $parser = Podwrapper::XHTML->new;
my $output;
$parser->no_errata_section (1);
$parser->complain_stderr (1);
$parser->output_string (\$output);
# Added in Pod::Simple 3.16, 2011-03-14.
eval { $parser->html_charset ("UTF-8") };
@@ -606,6 +612,8 @@ if ($html) {
open OUT, ">$html" or die "$progname: $html: $!";
print OUT $output or die "$progname: $html: $!";
close OUT or die "$progname: $html: $!";
die "$input: errors or warnings in this POD file, see messages above\n"
if $parser->any_errata_seen;
print "$progname: wrote $html\n";
}
@@ -613,12 +621,16 @@ if ($html) {
if ($text) {
my $parser = Pod::Simple::Text->new;
my $output;
$parser->no_errata_section (1);
$parser->complain_stderr (1);
$parser->output_string (\$output);
$parser->parse_string_document ($content);
open OUT, ">$text" or die "$progname: $text: $!";
binmode OUT, ":utf8";
print OUT $output or die "$progname: $text: $!";
close OUT or die "$progname: $text: $!";
die "$input: errors or warnings in this POD file, see messages above\n"
if $parser->any_errata_seen;
print "$progname: wrote $text\n";
}