insns.pl: escape literal special character in regex

In Perl code, it is good practice to escape special characters
intended to be literal.

1 files changed, 1 insertions, 1 deletions

diff --git a/insns.pl b/insns.pl
index 0b5e1a3..7b4d8b4 100644
--- a/insns.pl
+++ b/insns.pl
@@ -678,7 +678,7 @@ sub byte_code_compile($) {
 		die "$0: $line: $op without 'i' and 's' operands\n";
 	    }
 	    push(@codes, 0172, ($oppos{'s'} << 3)+$oppos{'i'});
-	} elsif ($op =~ /^is4=([0-9]+)$/) {
+	} elsif ($op =~ /^is4\=([0-9]+)$/) {
 	    if (!defined($oppos{'s'})) {
 		die "$0: $line: $op without 's' operand\n";
 	    }