sbotools2

commit a653f1d2e639d7636728660ff0470c66b906484d
parent 0e5a36a35f863e91aad439db094607623a0017ca
Author: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date:   Thu, 24 Oct 2013 20:55:14 +0200

got rid of given/when

Replaced given/when in sbosnap with if/elsif clauses, since given/when has
been made experimental with a warning in newer perl versions.

Diffstat:
M
sbosnap
 | 
6
++----

1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/sbosnap b/sbosnap
@@ -54,9 +54,7 @@ if ($ARGV[0] =~ /fetch|update/) {
 	show_usage and exit 1;
 }
 
-given ($command) {
-	when ('fetch') {fetch_tree}
-	when ('update') {update_tree}
-}
+if    ($command eq 'fetch')  { fetch_tree }
+elsif ($command eq 'update') { update_tree }
 
 exit 0;