From: Yves Orton <demerphq@gemini.(none)>
Date: Tue, 28 Jul 2009 11:04:22 +0000 (+0200)
Subject: dont leave temporary files laying around
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40c539099071b6200af235484f3b33ce7d837dd6;p=p5sagit%2Fp5-mst-13.2.git

dont leave temporary files laying around
---

diff --git a/Porting/make_snapshot.pl b/Porting/make_snapshot.pl
index cab61b1..70a4c3d 100755
--- a/Porting/make_snapshot.pl
+++ b/Porting/make_snapshot.pl
@@ -71,6 +71,7 @@ if (!-e "$path/$gz_file") {
         close $fh;
     }
     system("tar -f $tar_file --transform='s,^$$,$prefix,g' --owner=root --group=root --mode=664 --append $$.patch");
+    unlink "$$.patch";
     system("gzip -S .gz -9 $tar_file");
     rename "$tar_file.gz", "$gz_file";
 }