From b726b048131ad8e5a3b16a13d2a16a33d152e2fd Mon Sep 17 00:00:00 2001
From: "H. Peter Anvin" <hpa@zytor.com>
Date: Tue, 20 May 2008 13:03:39 -0700
Subject: [PATCH] insns.pl: don't require whitespace before / or \

Use Perl's context-sensitive regular expressions to tell split that a
slash or backslash begins a new operator.
---
 insns.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/insns.pl b/insns.pl
index 6b6375ed..280b8b2e 100644
--- a/insns.pl
+++ b/insns.pl
@@ -523,7 +523,7 @@ sub byte_code_compile($) {
     }
 
     $prefix_ok = 1;
-    foreach $op (split(/\s+/, $opc)) {
+    foreach $op (split(/\s*(?:\s|(?=[\/\\]))/, $opc)) {
 	if ($op eq 'o16') {
 	    push(@codes, 0320);
 	} elsif ($op eq 'o32') {