From 0daee297e3c44c00f54d2be15f13eabdddc6b62f Mon Sep 17 00:00:00 2001
From: Erik de Castro Lopo <erikd@mega-nerd.com>
Date: Tue, 6 Aug 2013 13:18:22 +1000
Subject: sync-all : Replace '~~' operator with something supported by older
 Perl.

---
 sync-all | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sync-all b/sync-all
index 00d14bb0a3..e3d6f35acc 100755
--- a/sync-all
+++ b/sync-all
@@ -901,7 +901,8 @@ sub main {
 }
 
 BEGIN {
-    if ("pull" ~~ @ARGV) {
+    my %argvHash = map { $_, 1 } @ARGV;
+    if ($argvHash {"pull"}) {
         checkCurrentBranchIsMaster();
     }
     $initial_working_directory = getcwd();
-- 
cgit v1.2.1