[perl #40560] [PATCH] minor languages/regex/lib/Regex/Grammar.y fix

[Paul Cochrane]

# New Ticket Created by  "Paul Cochrane" 
# Please include the string:  [perl #40560]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40560 >


Hi,

This patch gets regex/lib/Regex/Grammar.y to pass the
t/codingstd/cppcomments.t test again.

Comments welcome,

Paul

files affected:
regex/lib/Regex/Grammar.y

Index: languages/regex/lib/Regex/Grammar.y
===================================================================
--- languages/regex/lib/Regex/Grammar.y	(revision 14955)
+++ languages/regex/lib/Regex/Grammar.y	(working copy)
@@ -10,7 +10,7 @@
     my @types;
     my $state = 0;
     my $depth = 0;
-    for my $c (split(//, $data)) {
+    for my $c (split(m{}, $data)) {
         if ($state == 0) {
             if ($c eq '\\') {
                 $state = 1;