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.";  | 
