diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-05-04 15:36:47 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-05-04 15:36:47 +0200 |
| commit | c919e87379678094951ae4130a71bdc1938ccde1 (patch) | |
| tree | 221da9aac8d2840ff7a27cacc3be4de9702a56d2 /dist/Safe | |
| parent | 62705b21e05c097bbaecf3ca91f129dc5855ce77 (diff) | |
| download | perl-c919e87379678094951ae4130a71bdc1938ccde1.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.
Diffstat (limited to 'dist/Safe')
| -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"; |