From 10ea14a3f1adb7023dd0601e4759bd24a030a1c3 Mon Sep 17 00:00:00 2001 From: Richard Jones Date: Sun, 11 Jul 2010 23:11:08 +0100 Subject: [PATCH] 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 file 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.8.3.1