aboutsummaryrefslogtreecommitdiff
path: root/sbocheck
diff options
context:
space:
mode:
Diffstat (limited to 'sbocheck')
-rwxr-xr-xsbocheck16
1 files changed, 8 insertions, 8 deletions
diff --git a/sbocheck b/sbocheck
index 5a40212..424fec0 100755
--- a/sbocheck
+++ b/sbocheck
@@ -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.";