Commit 9be740e3 authored by Robert Ricci's avatar Robert Ricci

Changed to use Getopt::Std instead of Getopt::Long, to match other scripts

parent 02aca038
......@@ -17,7 +17,7 @@ my $TBROOT = "@prefix@";
use lib '@prefix@/lib';
use libdb;
require exitonwarn;
use Getopt::Long;
use Getopt::Std;
#
# Turn off line buffering on output
......@@ -29,7 +29,7 @@ $| = 1;
#
my %opt = ();
my $verbose = 0;
GetOptions(\%opt,"h","v");
getopts('hv',\%opt);
if ($opt{h}) {
exit &usage;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment