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

cruft

Browse source
This commit is contained in:
Ward Wouts 2002-12-18 12:14:02 +00:00
parent 98520b4d12
commit 61d3aecfa5
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
mvwrap/mvwrap
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# $Dwarf: mvwrap,v 1.39 2002/12/18 12:10:39 ward Exp $ # $Dwarf: mvwrap,v 1.40 2002/12/18 12:11:47 ward Exp $
# $Source$ # $Source$
# #
@ -331,9 +331,7 @@ sub askyn($) {
# parse commandline # parse commandline
sub cmdline { sub cmdline {
%optctl = ();
&GetOptions("e=s", "h", "p=s", \@pattern, "f=s", "v", "n"); &GetOptions("e=s", "h", "p=s", \@pattern, "f=s", "v", "n");
&GetOptions(\%optctl, "e");
&help if $opt_h; &help if $opt_h;
if ($opt_f) { &read_pattern; } if ($opt_f) { &read_pattern; }