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.

1 files changed, 2 insertions, 4 deletions

diff --git a/sbosnap b/sbosnap
index 2673d9a..455c472 100755
--- 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;