diff --git a/tests/testcurl.pl b/tests/testcurl.pl
index b59c035e379606e6ad4f4ffd8db783ec9d95a4d4..ac569fe8f59b77337f4e8f9613438207d00c81f7 100755
--- a/tests/testcurl.pl
+++ b/tests/testcurl.pl
@@ -459,5 +459,10 @@ if ($gnulikebuild) {
   print "TESTDONE: 1 tests out of 0 (dummy message)\n"; # dummy message to feign success
 }
 
+# simple way to create a tarball just before the build is deleted.
+if (-f '../mktarball') {
+  system('../mktarball');
+}
+
 # mydie to cleanup
 mydie "ending nicely";