more atomic generation of MD5SUM

1 files changed, 5 insertions, 2 deletions

diff --git a/lib/Youri/Submit/Post/Genhdlist2.pm b/lib/Youri/Submit/Post/Genhdlist2.pm
index 6eefd7c..e9c3e24 100644
--- a/lib/Youri/Submit/Post/Genhdlist2.pm
+++ b/lib/Youri/Submit/Post/Genhdlist2.pm
@@ -52,9 +52,12 @@ sub run {
     # need to redo global MD5SUM. This MD5SUM is mostly obsolete, but is still needed up to 2007.1
     # (and even on cooker for existing urpmi.cfg)
     foreach my $arch (@{$repository->get_arch_changed($target)}) {
-	my $cmd = "cd $root/$target/$arch/media/media_info ; time md5sum hdlist_* synthesis.* > MD5SUM";
+	my $dir = "$root/$target/$arch/media/media_info";
+	my $cmd = "cd $dir ; time md5sum hdlist_* synthesis.*";
 	print "$cmd\n";
-	system($cmd) == 0 or print "ERROR: $cmd failed\n";
+	my $m = `$cmd`;
+	open my $f, '>', "$dir/MD5SUM" or die "Can't write $dir/MD5SUM: $!\n";
+	print $f $m;
     }
     return;
 }