diff options
author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-02-28 23:47:19 +0100 |
---|---|---|
committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-02-28 23:47:19 +0100 |
commit | efbe327085cc15510d8c261772e9ac21be3635de (patch) | |
tree | 8ee9d8269cad64a132920e4765c6a9611d42566b /dist | |
parent | d56d7163335131cbf8948e87f4feddd57b0513f9 (diff) | |
download | perl-efbe327085cc15510d8c261772e9ac21be3635de.tar.gz |
Un-TODO warning test
Diffstat (limited to 'dist')
-rw-r--r-- | dist/Safe/t/safesort.t | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/dist/Safe/t/safesort.t b/dist/Safe/t/safesort.t index 991884db35..797e155f06 100644 --- a/dist/Safe/t/safesort.t +++ b/dist/Safe/t/safesort.t @@ -57,6 +57,5 @@ is $@, 42, 'successful closure call should not alter $@'; local $SIG{__WARN__} = sub { $warns++ }; ok !eval { $die_func->("died\n"); 1 }, 'should die'; is $@, "died\n", '$@ should be set correctly'; - local $TODO = "Shouldn't warn"; is $warns, 0; } |