[commit: ghc] master: sync-all : Replace '~~' operator with something supported by older Perl. (0daee29)

[Erik de Castro]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/0daee297e3c44c00f54d2be15f13eabdddc6b62f

>---------------------------------------------------------------

commit 0daee297e3c44c00f54d2be15f13eabdddc6b62f
Author: Erik de Castro Lopo <erikd at mega-nerd.com>
Date:   Tue Aug 6 13:18:22 2013 +1000

    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 00d14bb..e3d6f35 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();