From 14c9ac8fdb48d5e2ddc9f6d887bd047f4ddaef2e Mon Sep 17 00:00:00 2001
From: Nicholas Hastings <nshastings@gmail.com>
Date: Mon, 13 Dec 2021 12:52:26 -0500
Subject: [PATCH] [Buildbot] Delete package after successful upload. (#1665)

* [Buildbot] Delete package after successful upload.

* Use autodie.

* ;
---
 tools/buildbot/package.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/tools/buildbot/package.pl b/tools/buildbot/package.pl
index 09188bda..feecb01a 100755
--- a/tools/buildbot/package.pl
+++ b/tools/buildbot/package.pl
@@ -7,6 +7,7 @@ use File::Copy;
 use File::stat;
 use File::Temp qw/ tempfile :seekable/;
 use Net::FTP;
+use autodie qw(:all);
 
 my ($ftp_file, $ftp_host, $ftp_user, $ftp_pass, $ftp_path, $tag);
 
@@ -147,7 +148,13 @@ $ftp->put($tmpfile, $latest)
 
 $ftp->close();
 
-print "File sent to drop site as $filename -- build succeeded.\n";
+print "File sent to drop site as $filename.\n";
+
+print "Deleting file \"$filename\"...\n";
+unlink($filename) or die "Cannot delete file \"$filename\"\n";
+print "Successfully deleted file.\n"
+
+print "Build succeeded.\n"
 
 exit(0);