Libguestfs - Jul 2010 - [PATCH] edit: Clean up temporary files.

-- 
Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones
New in Fedora 11: Fedora Windows cross-compiler. Compile Windows
programs, test, and build Windows installers. Over 70 libraries supprt'd
http://fedoraproject.org/wiki/MinGW http://www.annexia.org/fedora_mingw
-------------- next part --------------
>From 10ea14a3f1adb7023dd0601e4759bd24a030a1c3 Mon Sep 17 00:00:00 2001
From: Richard Jones <rjones at redhat.com>
Date: Sun, 11 Jul 2010 23:11:08 +0100
Subject: [PATCH 3/4] edit: Clean up temporary files.

Note to self: The 'tempfile' function does *not* default to
removing files with the program exits!
---
 tools/virt-edit |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/virt-edit b/tools/virt-edit
index 154d336..128872e 100755
--- a/tools/virt-edit
+++ b/tools/virt-edit
@@ -180,7 +180,7 @@ my $root_dev = $roots[0];
 my $os = $oses->{$root_dev};
 mount_operating_system ($g, $os, 0);
 
-my ($fh_not_used, $tempname) = tempfile ();
+my ($fh_not_used, $tempname) = tempfile (UNLINK => 1);
 
 # Allow this to fail in case eg. the file does not exist.
 $g->download($filename, $tempname);
@@ -203,7 +203,7 @@ if (!defined $expr) {
         print __"File not changed.\n";
     }
 } else {
-    my ($fh, $tempout) = tempfile ();
+    my ($fh, $tempout) = tempfile (UNLINK => 1);
 
     # Apply a Perl expression to the lines of the file.
     open IFILE, $tempname or die "$tempname: $!";
-- 
1.7.1