make_resource.pl: Clean up destination file around on failure

Author: terryburton

build/make_resource.pl

@@ -19,6 +19,13 @@
 
 ($outfile) = $outfile =~ /(.*)/;  # Untaint
 
+END {
+  if ($? != 0) {
+    unlink("$outfile.tmp");
+    unlink($outfile);
+  }
+}
+
 (my $resdir) = $outfile =~ m#^(build/[^/]+)/#;
 my $packager = $resdir eq 'build/packaged_resource' ? 'make_packaged_resource.ps' : 'make_resource.ps';
 
@@ -58,7 +65,7 @@
 }
 $neededresources =~ s/\s+$//;
 
-open($fh, '>', "$outfile.tmp") || die "Failed to write $outfile";
+open($fh, '>', "$outfile.tmp") || die "Failed to write $outfile.tmp";
 print $fh $body;
 close $fh;
 
@@ -111,4 +118,5 @@
   }
 }
 
+$? = 0;  # Mark successful completion
 exit 0;