From b0b7aeeebb2be6605d9d369ffc975f3ea2dc1f1c Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Tue, 31 Jul 2001 14:41:13 +0000
Subject: [PATCH] locking geintroduceerd

---
 mvwrap/mvwrap | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/mvwrap/mvwrap b/mvwrap/mvwrap
index 3492c6e..2858ea1 100755
--- a/mvwrap/mvwrap
+++ b/mvwrap/mvwrap
@@ -31,6 +31,15 @@ foreach (@source) {
 }
 close ($target);
 
+if ( -e ".mv_wrap") {
+	die "Another mv_wrap process is active in this direcory\n"
+}
+else {
+	open LOCK, ">.mv_wrap";
+	print LOCK $$;
+	close LOCK;
+}
+
 &edit($target_name);
 
 open $target, $target_name or die "Couldn't open tempfile: $target_name: $!";
@@ -54,6 +63,8 @@ if (@unsafe = &check_safety(\@source, \@target)) {
 # final move
 &move_files(\@source, \@target);
 
+unlink ".mv_wrap" or die "Couldn't remove lock";
+
 # call EDITOR or vi with filename
 # edit($filename);
 sub edit {