diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-08-05 00:59:50 -0300 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2014-01-04 15:37:47 -0300 |
| commit | 01d7523aa4fafae6f4996f7f0f8eec57f4ef419f (patch) | |
| tree | b443285d251b6e57be5021496ac4f41f9c08fd8c /ext/Devel-Peek | |
| parent | 0eb335df32a07389fed6e07a4743d529fb77ac0c (diff) | |
| download | perl-01d7523aa4fafae6f4996f7f0f8eec57f4ef419f.tar.gz | |
Devel::Peek: Test that we dump CvOUTSIDE properly
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 2477b53021..0f48eb4db2 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1386,10 +1386,8 @@ EOP ) } -{ - local $::TODO = "OUTSIDE currently broken in blead"; sub get_outside { - eval "sub $_[0] { my \$x; \$x++; return sub { \$x } } $_[0]()"; + eval "sub $_[0] { my \$x; \$x++; return sub { eval q{\$x} } } $_[0]()"; } sub food { my $x; return sub { $x } } @@ -1404,7 +1402,6 @@ like( qr/OUTSIDE = 0x[[:xdigit:]]+\s+\Q(\x{30ce})/, 'OUTSIDE + UTF8 works' ); -} # TODO AUTOLOAD = stashname, which requires using a XS autoload # and calling Dump() on the cv |