sbocheck converted to Getopt::Long

1 files 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;