(empty_status) simplify, make it cleaer and kill a perl_checker warning

1 files changed, 1 insertions, 1 deletions

diff --git a/iurt b/iurt
index 2c30f56..11f7bf6 100755
--- a/iurt
+++ b/iurt
@@ -1407,7 +1407,7 @@ sub status_file {
 sub empty_status {
     my ($local_spool, $run) = @_;
     my $status_file = status_file($local_spool, $run);
-    open my $file, ">$status_file";
+    truncate($status_file, 0);
 }
 
 sub write_status {