From 6453df90bdb386b36a6bc9db8d5033c5b8ea7639 Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Fri, 21 Sep 2012 05:40:32 -0500 Subject: removed extraneous qw(:config), fixed some spacing --- sbocheck | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/sbocheck b/sbocheck index 0ef4743..6a2bd5d 100755 --- a/sbocheck +++ b/sbocheck @@ -13,14 +13,14 @@ use 5.12.3; use strict; use warnings FATAL => 'all'; use SBO::Lib; -use Getopt::Long qw(:config); +use Getopt::Long; use Text::Tabulate; use File::Basename; my $self = basename ($0); sub show_usage () { - print < \$help, 'version|v' => \$vers); +GetOptions ('help|h' => \$help, 'version|v' => \$vers); show_usage && exit 0 if $help; show_version && exit 0 if $vers; -- cgit v1.2.3