From fefa3624ee39aa3987a56f8a76366309bb018e79 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Tue, 31 Jul 2001 08:55:40 +0000
Subject: [PATCH] mv_wrap snapt nu de EDITOR variable

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

diff --git a/mvwrap/mvwrap b/mvwrap/mvwrap
index 96535ab..aa76386 100755
--- a/mvwrap/mvwrap
+++ b/mvwrap/mvwrap
@@ -1,8 +1,8 @@
 #!/usr/bin/perl -w
 
 #
-# Scriptje om vi op de inhoud van directories los te laten
-# Makkelijker dan 6000 keer move met de hand doen
+# Scriptje om een editor op de inhoud van directories los te laten.
+# Makkelijker dan 6000 keer move met de hand doen.
 # (C) 2001 Ward Wouts
 #
 
@@ -33,9 +33,10 @@ foreach (@source) {
 
 close ($target);
 
-@vi = ("vi", "$target_name");
-system(@vi) == 0
-	or die "System @vi failed: $?";
+$editor = defined $ENV{EDITOR}  ? $ENV{EDITOR} : "vi";
+@editor = ("$editor", "$target_name");
+system(@editor) == 0
+	or die "System @editor failed: $?";
 
 open $target, $target_name;
 while (<$target>) {