From 36ccfa5fb42bed46cee2fa11316d14ac77f90b01 Mon Sep 17 00:00:00 2001
From: Jin Kyu Song <jin.kyu.song@intel.com>
Date: Mon, 7 Oct 2013 14:51:09 -0700
Subject: [PATCH] iflags: Eliminate perl smart match operator

As smart match operator reuiqres perl version 5.10.1 or later,
it is replaced with grep function.
This part of code is going to be completely removed once iflags
renovataion is done. This commit is a quick fix for a build error.

Signed-off-by: Jin Kyu Song <jin.kyu.song@intel.com>
---
 insns.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/insns.pl b/insns.pl
index 60f7dd3..8d1f0ee 100755
--- a/insns.pl
+++ b/insns.pl
@@ -483,7 +483,7 @@ sub format_insn($$$$$) {
     # check if two different insn set types are set
     $cnt = 0;
     foreach $fla (split(/,/, $flags)) {
-        if ($fla ~~ @iflags) {
+        if (grep(/$fla/, @iflags)) {
             $cnt++;
             if ($cnt >= 2) {
                 die "Too many insn set flags in $flags\n";
-- 
2.7.4