ActivePerl requires a parm for getopt.

1999-04-05 15:16:10 +00:00
parent 5fe61d39ef
commit bdd672cbaf
2 changed files with 2 additions and 2 deletions
@@ -6,7 +6,7 @@

 use File::Path;
 use Getopt::Std;
-getopt();
+getopt "";

 foreach $dir ( @ARGV )
 {
@@ -6,7 +6,7 @@ use File::Path;
 use File::Find;
 use Getopt::Std;

-getopt();
+getopt "";

 foreach $arg ( @ARGV )
 {