From eaa18fd91c51c136ff6ec607d46d32b87a2ea34f Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Sat, 14 Nov 2015 03:03:55 +0100
Subject: Remove prototypes and make sure subs are called with ()

---
 sbosnap | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'sbosnap')

diff --git a/sbosnap b/sbosnap
index 455c472..cdf8c86 100755
--- a/sbosnap
+++ b/sbosnap
@@ -19,7 +19,7 @@ use Getopt::Long;
 my $sbo_home = $config{SBO_HOME};
 my $self = basename($0);
 
-sub show_usage() {
+sub show_usage {
 	print <<EOF
 Usage: $self [options|command]
 
@@ -37,24 +37,24 @@ Commands:
 EOF
 }
 
-show_usage and exit 1 unless exists $ARGV[0];
+show_usage() and exit 1 unless exists $ARGV[0];
 
 my ($help, $vers);
 
 GetOptions('help|h' => \$help, 'version|v' => \$vers);
 
-show_usage and exit 0 if $help;
-show_version and exit 0 if $vers;
+show_usage() and exit 0 if $help;
+show_version() and exit 0 if $vers;
 
 # check for a command and, if found, execute it
 my $command;
 if ($ARGV[0] =~ /fetch|update/) {
 	$command = $ARGV[0];
 } else { 
-	show_usage and exit 1;
+	show_usage() and exit 1;
 }
 
-if    ($command eq 'fetch')  { fetch_tree }
-elsif ($command eq 'update') { update_tree }
+if    ($command eq 'fetch')  { fetch_tree() }
+elsif ($command eq 'update') { update_tree() }
 
 exit 0;
-- 
cgit v1.2.3