diff options
author | Yves Orton <demerphq@gemini.(none)> | 2009-07-28 13:04:22 +0200 |
---|---|---|
committer | Yves Orton <demerphq@gemini.(none)> | 2009-07-28 13:04:22 +0200 |
commit | 40c539099071b6200af235484f3b33ce7d837dd6 (patch) | |
tree | c4f74dd44a871dda6722ed6b7f85916a1d8764b3 /Porting/make_snapshot.pl | |
parent | fe4f778754e1e2a5e05eddcd123ab68c16b18ab9 (diff) | |
download | perl-40c539099071b6200af235484f3b33ce7d837dd6.tar.gz |
dont leave temporary files laying around
Diffstat (limited to 'Porting/make_snapshot.pl')
-rwxr-xr-x | Porting/make_snapshot.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Porting/make_snapshot.pl b/Porting/make_snapshot.pl index cab61b17b2..70a4c3d66d 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"; } |