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.

1 files changed, 1 insertions, 1 deletions

diff --git a/insns.pl b/insns.pl
index 6b6375e..280b8b2 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') {