| Subject: | Devel::StackTrace::Frame::as_string walks on global $@ |
Devel::StackTrace::Frame::as_string fails to localize $@.
TODO test attached.
-Marc
| Subject: | dollar_at.t |
#!perl
use warnings;
use strict;
use Test::More tests => 1;
use Devel::StackTrace;
diag $Devel::StackTrace::VERSION;
TODO: {
local $TODO = 'localize $@';
$@ = my $msg = "Don't tread on me";
Devel::StackTrace->new->frame(0)->as_string;
is $@, $msg, '$@ unmolested';
}