From 255b3461ad633b53c6c42b5403ac5db56e3f11bc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 11 Dec 2012 09:03:35 +0000
Subject: (empty_status) simplify, make it cleaer and kill a perl_checker
 warning

---
 iurt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'iurt')

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 {
-- 
cgit v1.2.1