diff options
Diffstat (limited to 'sbocheck')
-rwxr-xr-x | sbocheck | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -17,9 +17,9 @@ use Getopt::Long; use Text::Tabulate; use File::Basename; -my $self = basename ($0); +my $self = basename($0); -sub show_usage () { +sub show_usage() { print <<EOF Usage: $self @@ -34,7 +34,7 @@ EOF my ($help, $vers); -GetOptions ('help|h' => \$help, 'version|v' => \$vers); +GetOptions('help|h' => \$help, 'version|v' => \$vers); show_usage and exit 0 if $help; show_version and exit 0 if $vers; @@ -42,7 +42,7 @@ show_version and exit 0 if $vers; update_tree; # retrieve and format list of available updates -sub get_update_list () { +sub get_update_list() { print "Checking for updated SlackBuilds...\n"; my $updates = get_available_updates; # pretty formatting. @@ -56,13 +56,13 @@ sub get_update_list () { } # Text::Tabulate and print list of updates -sub print_output ($) { +sub print_output($) { exists $_[0] or script_error 'print_output requires an argument'; my $listing = shift; if (exists $$listing[0]) { - my $tab = new Text::Tabulate (); - $tab->configure (tab => '\s'); - my $output = $tab->format (@$listing); + my $tab = new Text::Tabulate(); + $tab->configure(tab => '\s'); + my $output = $tab->format(@$listing); say "\n". $output; } else { say "\nNo updates available."; |