This commit is contained in:
Ward Wouts 2002-12-18 12:14:02 +00:00
parent 98520b4d12
commit 61d3aecfa5

View file

@ -1,6 +1,6 @@
#!/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$
#
@ -331,9 +331,7 @@ sub askyn($) {
# parse commandline
sub cmdline {
%optctl = ();
&GetOptions("e=s", "h", "p=s", \@pattern, "f=s", "v", "n");
&GetOptions(\%optctl, "e");
&help if $opt_h;
if ($opt_f) { &read_pattern; }