ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mv_wrap snapt nu de EDITOR variable

Browse source
This commit is contained in:
Ward Wouts 2001-07-31 08:55:40 +00:00
parent d92c3e0f4b
commit fefa3624ee
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
mvwrap/mvwrap
View file

@ -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>) {