X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=tools%2Fvirt-edit;h=128872e897658cc50085b2ef20827cedb069556e;hb=b3d94d6a71e74e817ad5bdb9497e88d19ec2e29d;hp=154d3363916ec156110375a1881429bf51398d91;hpb=fed8714b92b57da1a593f74b52635fd267442d5b;p=libguestfs.git

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: $!";