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: Remove output file on failure.

Browse Source 
Otherwise we end up generated a bad output file and (in some cases)
continuing the build.

Updates commit b23e149774.
This commit is contained in:
Richard W.M. Jones
2016-04-24 15:35:10 +01:00
parent 0d69eab98f
commit 314c5795b0
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
podwrapper.pl.in
View File

@@ -516,8 +516,10 @@ if ($man) {
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;
if ($parser->any_errata_seen) {
unlink $man;
die "$input: errors or warnings in this POD file, see messages above\n"
}
print "$progname: wrote $man\n";
}
@@ -612,8 +614,10 @@ 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;
if ($parser->any_errata_seen) {
unlink $html;
die "$input: errors or warnings in this POD file, see messages above\n"
}
print "$progname: wrote $html\n";
}
@@ -629,8 +633,10 @@ if ($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;
if ($parser->any_errata_seen) {
unlink $text;
die "$input: errors or warnings in this POD file, see messages above\n"
}
print "$progname: wrote $text\n";
}