diff --git a/mvwrap/mvwrap b/mvwrap/mvwrap
index 1d96a7d..2c07f4d 100755
--- a/mvwrap/mvwrap
+++ b/mvwrap/mvwrap
@@ -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; }