diff options
| author | Reini Urban <rurban@x-ray.at> | 2008-06-16 16:40:35 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-16 14:13:58 +0000 |
| commit | 227375e110cf4ab60e97c3894326008fde5077e0 (patch) | |
| tree | 04d06f8d72de236deb2377c27c2a8fdc952da928 | |
| parent | 54c90be1965086e94d469d87926c34fb379f3996 (diff) | |
| download | perl-227375e110cf4ab60e97c3894326008fde5077e0.tar.gz | |
TODO B-Deparse cpan-bug 33708
From: "Reini Urban" <rurban@x-ray.at>
Message-ID: <6910a60806160540v21c7affbte54ef0eedb0cb64d@mail.gmail.com>
p4raw-id: //depot/perl@34063
| -rw-r--r-- | ext/B/B/Deparse.pm | 6 | ||||
| -rw-r--r-- | ext/B/t/deparse.t | 14 |
2 files changed, 19 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index b70a17ce75..0401ea36f9 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -4802,6 +4802,8 @@ dual-valued scalars correctly, as in: use constant E2BIG => ($!=7); $y = E2BIG; print $y, 0+$y; + use constant H => { "#" => 1 }; H->{"#"}; + =item * An input file that uses source filtering probably won't be deparsed into @@ -4818,6 +4820,10 @@ have a compile-time side-effect, such as the obscure which is not, consequently, deparsed correctly. + foreach my $i (@_) { 0 } + => + foreach my $i (@_) { '???' } + =item * Lexical (my) variables declared in scopes external to a subroutine diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t index 13c6e2caca..a8cb3560d0 100644 --- a/ext/B/t/deparse.t +++ b/ext/B/t/deparse.t @@ -27,7 +27,7 @@ BEGIN { require feature; feature->import(':5.10'); } -use Test::More tests => 61; +use Test::More tests => 64; use B::Deparse; my $deparse = B::Deparse->new(); @@ -420,3 +420,15 @@ else { x(); } # 54 interpolation in regexps my($y, $t); /x${y}z$t/; +#### +# SKIP ?$B::Deparse::VERSION <= 0.87 && "TODO new undocumented cpan-bug #33708" +# 55 (cpan-bug #33708) +%{$_ || {}} +#### +# SKIP ?$B::Deparse::VERSION <= 0.87 && "TODO hash constants not yet fixed" +# 56 (cpan-bug #33708) +use constant H => { "#" => 1 }; H->{"#"} +#### +# SKIP ?$B::Deparse::VERSION <= 0.87 && "TODO optimized away 0 not yet fixed" +# 57 (cpan-bug #33708) +foreach my $i (@_) { 0 } |