sbofind converted to long options and fixes added from 0.8

1 files changed, 19 insertions, 12 deletions

diff --git a/sbofind b/sbofind
index e61c76e..a2f731d 100755
--- a/sbofind
+++ b/sbofind
@@ -14,7 +14,7 @@ use strict;
 use warnings FATAL => 'all';
 use SBO::Lib;
 use File::Basename;
-use Getopt::Std;
+use Getopt::Long qw(:config bundling);
 
 my $self = basename ($0);
 
@@ -23,10 +23,14 @@ sub show_usage () {
 Usage: $self (search_term)
 
 Options:
-  -h: this screen.
-  -v: version information.
-  -i: show the .info for each found item.
-  -r: show the README for each found item.
+  -h|--help:
+    this screen.
+  -v|--verison:
+    version information.
+  -i|--info:
+    show the .info for each found item.
+  -r|--readme:
+    show the README for each found item.
 
 Example:
   $self libsexy 
@@ -34,20 +38,23 @@ Example:
 EOF
 }
 
-my %options;
-getopts ('hvir', \%options);
+my ($help, $vers, $show_info, $show_readme);
 
-show_usage and exit 0 if exists $options{h};
-show_version and exit 0 if exists $options{v};
+GetOptions (
+	'help|h'	=> \$help,
+	'version|v'	=> \$vers,
+	'info|i'	=> \$show_info,
+	'readme|r'	=> \$show_readme,
+);
 
-my $show_readme = exists $options{r} ? 1 : 0;
-my $show_info = exists $options{i} ? 1 : 0;
+show_usage and exit 0 if $help;
+show_version and exit 0 if $vers;
 
 show_usage and exit 1 unless exists $ARGV[0];
 my $search = $ARGV[0];
 
 # if we can't find SLACKBUILDS.TXT in $config{HOME}, prompt to fetch the tree
-slackbuilds_or_fetch; 
+slackbuilds_or_fetch;
 
 # find anything with $search in its name
 sub perform_search ($) {