diff options
author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-05-04 15:36:47 +0200 |
---|---|---|
committer | Jesse Vincent <jesse@bestpractical.com> | 2010-05-13 17:59:25 -0400 |
commit | ffe434bf93bf81566455871a58825ad4f4734520 (patch) | |
tree | dea8a6846a8188ccb19d772a2fc3cd16a6cd9a92 | |
parent | 506e320741acbbd16f78aeb1fa384c5e9ed1c395 (diff) | |
download | perl-ffe434bf93bf81566455871a58825ad4f4734520.tar.gz |
die() no longer propagates outside of a Safe compartment
so mark the test for that as a TODO. We'll decide later what behaviour
is desirable here. Note that it warns instead.
-rw-r--r-- | dist/Safe/t/safesort.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dist/Safe/t/safesort.t b/dist/Safe/t/safesort.t index 3396f1e10f..366358df03 100644 --- a/dist/Safe/t/safesort.t +++ b/dist/Safe/t/safesort.t @@ -49,6 +49,7 @@ is $@, 42, 'successful closure call should not alter $@'; { my $warns = 0; local $SIG{__WARN__} = sub { $warns++ }; + local $TODO = $] >= 5.013 ? "Doesn't die in 5.13" : undef; ok !eval { $die_func->("died\n"); 1 }, 'should die'; is $@, "died\n", '$@ should be set correctly'; local $TODO = "Shouldn't warn"; |