[nasm:master] iflags: Eliminate perl smart match operator

[nasm-bot f. J. K. S. <jin...@in...>]

Commit-ID:  36ccfa5fb42bed46cee2fa11316d14ac77f90b01
Gitweb:     http://repo.or.cz/w/nasm.git?a=commitdiff;h=36ccfa5fb42bed46cee2fa11316d14ac77f90b01
Author:     Jin Kyu Song <jin...@in...>
AuthorDate: Mon, 7 Oct 2013 14:51:09 -0700
Committer:  Jin Kyu Song <jin...@in...>
CommitDate: Mon, 7 Oct 2013 14:51:09 -0700

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...@in...>


---
 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";