From bdd672cbaf31fa4a056ca0f318673fae0d74c503 Mon Sep 17 00:00:00 2001
From: "Janet B. Anderson" <jba@aps.anl.gov>
Date: Mon, 5 Apr 1999 15:16:10 +0000
Subject: [PATCH] ActivePerl requires a parm for getopt.

---
 src/tools/mkdir.pl | 2 +-
 src/tools/rm.pl    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/tools/mkdir.pl b/src/tools/mkdir.pl
index e08d5a5cc..95efc0052 100644
--- a/src/tools/mkdir.pl
+++ b/src/tools/mkdir.pl
@@ -6,7 +6,7 @@
 
 use File::Path;
 use Getopt::Std;
-getopt();
+getopt "";
 
 foreach $dir ( @ARGV )
 {
diff --git a/src/tools/rm.pl b/src/tools/rm.pl
index 3d7085b69..83f54571a 100644
--- a/src/tools/rm.pl
+++ b/src/tools/rm.pl
@@ -6,7 +6,7 @@ use File::Path;
 use File::Find;
 use Getopt::Std;
 
-getopt();
+getopt "";
 
 foreach $arg ( @ARGV )
 {