From 3a018c0dd65ef4885f42f44be83e1571403f6fd9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 24 Mar 2012 15:36:50 +0000
Subject: do not reinvent touch

---
 emi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'emi')

diff --git a/emi b/emi
index 1908504..6ba4d21 100755
--- a/emi
+++ b/emi
@@ -35,7 +35,7 @@ use Iurt::Mail qw(sendmail);
 use Iurt::File qw(check_upload_tree);
 use Iurt::Util qw(plog_init plog);
 use Data::Dumper;
-use MDK::Common qw(cat_ if_);
+use MDK::Common qw(cat_ if_ touch);
 use MDK::Common::DataStructure qw(difference2);
 
 my %run;
@@ -323,7 +323,7 @@ foreach my $target (keys %targets) {
 
 	foreach my $prefix (@{$targets{$target}{$section}{to_upload}}) {
     	    my $path = $pkg_tree{$prefix}{section}{$section}{path};
-	    open FOO, ">$done/$path/$prefix.upload" unless -f "$reject/$path/$prefix.youri";
+	    touch("$done/$path/$prefix.upload") unless -f "$reject/$path/$prefix.youri";
         }
     }
 }
-- 
cgit v1.2.1