This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Don't convert \x{} from native
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index 779990e..dfcb25c 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -3040,14 +3040,14 @@ S_scan_const(pTHX_ char *start)
                        continue;
                    }
                     len = e - s;
-                   uv = NATIVE_TO_UNI(grok_hex(s, &len, &flags, NULL));
+                   uv = grok_hex(s, &len, &flags, NULL);
                    s = e + 1;
                }
                else {
                    {
                        STRLEN len = 2;
                         I32 flags = PERL_SCAN_DISALLOW_PREFIX;
-                       uv = NATIVE_TO_UNI(grok_hex(s, &len, &flags, NULL));
+                       uv = grok_hex(s, &len, &flags, NULL);
                        s += len;
                    }
                }