From 314c5795b0f1a405c904d796d3f9135894dd2c26 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Sun, 24 Apr 2016 15:35:10 +0100
Subject: [PATCH] podwrapper: Remove output file on failure.

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

Updates commit b23e1497747f1cdfdedfd0567e7748fdc3ae0684.
---
 podwrapper.pl.in | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/podwrapper.pl.in b/podwrapper.pl.in
index a668a17b8..7322a3029 100755
--- a/podwrapper.pl.in
+++ b/podwrapper.pl.in
@@ -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";
 }