From a653f1d2e639d7636728660ff0470c66b906484d Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Thu, 24 Oct 2013 20:55:14 +0200
Subject: 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.
---
 sbosnap | 6 ++----
 1 file 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;
-- 
cgit v1.2.3