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

now it's possible to specify files to use mv_wrap on

Browse source 
this may be dangerous! do I check for files which are not in @source?
This commit is contained in:
Ward Wouts 2001-08-30 12:32:17 +00:00
parent ddbd3b5eb2
commit 5c90dfb045
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
mvwrap/mvwrap
View file

@ -15,7 +15,7 @@ use POSIX qw(tmpnam);
use Getopt::Long; use Getopt::Long;
&cmdline; &cmdline;
&read_cur_dir; unless (defined @source) { &read_cur_dir; }
&lock; &lock;
if (@pattern) { if (@pattern) {
@ -213,6 +213,11 @@ sub cmdline {
&help if $opt_h; &help if $opt_h;
if ($opt_f) { &read_pattern; } if ($opt_f) { &read_pattern; }
if (defined @ARGV) {
foreach (@ARGV) {
push @source, "$_\n";
}
}
} }
sub help { sub help {
@ -224,7 +229,7 @@ It basically lets you edit the names in a directory with an editor
of your choice. By default this will be "vi", but it honors the EDITOR of your choice. By default this will be "vi", but it honors the EDITOR
environment variable. Which in turn can be overridden with the -e option. environment variable. Which in turn can be overridden with the -e option.
$0 [options] $0 [options] [--] [files]
At the moment it takes the following options: At the moment it takes the following options:
-h this help message -h this help message