From ec9042d5a06073dfe698099b455da3192e2f7783 Mon Sep 17 00:00:00 2001 From: J Pipkin Date: Sat, 8 Sep 2012 12:48:08 -0500 Subject: sbocheck converted to Getopt::Long --- sbocheck | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/sbocheck b/sbocheck index f8d89c2..80ee3ff 100755 --- a/sbocheck +++ b/sbocheck @@ -13,13 +13,13 @@ use 5.12.3; use strict; use warnings FATAL => 'all'; use SBO::Lib; -use Getopt::Std; +use Getopt::Long qw(:config bundling); use Text::Tabulate; -my %options; -getopts ('v',\%options); +my $vers; +GetOptions ('version|v' => \$vers); -show_version && exit 0 if exists $options{v}; +show_version && exit 0 if $vers; update_tree; -- cgit v1.2.3