aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-24 15:36:50 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-24 15:36:50 +0000
commit3a018c0dd65ef4885f42f44be83e1571403f6fd9 (patch)
tree11fa31babacc8eddd2c40145b9e577dcb5f9db89
parent5aa175144ae2b9d3832dec1c522689210b887d82 (diff)
downloadiurt-3a018c0dd65ef4885f42f44be83e1571403f6fd9.tar
iurt-3a018c0dd65ef4885f42f44be83e1571403f6fd9.tar.gz
iurt-3a018c0dd65ef4885f42f44be83e1571403f6fd9.tar.bz2
iurt-3a018c0dd65ef4885f42f44be83e1571403f6fd9.tar.xz
iurt-3a018c0dd65ef4885f42f44be83e1571403f6fd9.zip
do not reinvent touch
-rwxr-xr-xemi4
1 files changed, 2 insertions, 2 deletions
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";
}
}
}