diff options
| author | Jacob Pipkin <d4wnr4z0r@yahoo.com> | 2012-05-10 00:14:31 -0500 |
|---|---|---|
| committer | Jacob Pipkin <d4wnr4z0r@yahoo.com> | 2012-05-10 00:14:31 -0500 |
| commit | 89edd0f09cd7d5df2d8da1aa07b7af002ca5ff74 (patch) | |
| tree | 6478b33bdd18062a204511195c8d51b69f99c8bf /sbocheck | |
| parent | 05c96e3223373587d3c61ec7d2ddadc5be367925 (diff) | |
| download | sbotools2-89edd0f09cd7d5df2d8da1aa07b7af002ca5ff74.tar.xz | |
code style cleanups
Diffstat (limited to 'sbocheck')
| -rwxr-xr-x | sbocheck | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -15,32 +15,32 @@ use warnings FATAL => 'all'; use strict; my %config = %SBO::Lib::config; -my $self = basename($0); +my $self = basename ($0); my %options; -getopts('v',\%options); +getopts ('v',\%options); -show_version() && exit(0) if (exists $options{v}); +show_version () && exit (0) if (exists $options{v}); -update_tree(); +update_tree (); print "Checking for updated SlackBuilds...\n"; -my @updates = get_available_updates(); +my @updates = get_available_updates (); my @listing; for (keys @updates) { my $string = "$updates[$_]{name}-$updates[$_]{installed}"; $string .= " < needs updating (SBo has $updates[$_]{update})\n"; - push(@listing,$string); + push (@listing,$string); } 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); print "\n". $output ."\n"; } else { print "\nNo updates available.\n"; } -exit(0); +exit 0; |
