diff options
| author | David Mitchell <davem@iabyn.com> | 2013-10-23 15:12:18 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2013-10-23 15:15:32 +0100 |
| commit | fea7fb25afff9547ae810fad732c75518bb156a3 (patch) | |
| tree | a825a42012b34b3b69cb902b9571a67f9ff5da0b /lib/B | |
| parent | df8dcb28d0eee23f10e6af3590aaafec84870183 (diff) | |
| download | perl-fea7fb25afff9547ae810fad732c75518bb156a3.tar.gz | |
Make B/Deparse handle unicode regexes
[perl #120182]
the precomp B::OP method was returning a non-UTF8 string even if the
regex was utf8
Diffstat (limited to 'lib/B')
| -rw-r--r-- | lib/B/Deparse.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t index 50874854b0..bbd03da9d4 100644 --- a/lib/B/Deparse.t +++ b/lib/B/Deparse.t @@ -13,7 +13,7 @@ use warnings; use strict; use Test::More; -my $tests = 19; # not counting those in the __DATA__ section +my $tests = 20; # not counting those in the __DATA__ section use B::Deparse; my $deparse = B::Deparse->new(); @@ -270,6 +270,13 @@ x(); z() . EOCODH +# literal big chars under 'use utf8' +is($deparse->coderef2text(sub{ use utf8; /€/; }), +'{ + /\x{20ac}/; +}', +"qr/euro/"); + done_testing($tests); |