From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Thu, 29 Apr 2010 11:02:27 +0000 (+0200)
Subject: Revert "Un-TODO warning test"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d72cea07e141ecf607ab0546300c437af9cb85e;p=p5sagit%2Fp5-mst-13.2.git

Revert "Un-TODO warning test"

This reverts commit efbe327085cc15510d8c261772e9ac21be3635de.
---

diff --git a/dist/Safe/t/safesort.t b/dist/Safe/t/safesort.t
index 2f1c204..3396f1e 100644
--- a/dist/Safe/t/safesort.t
+++ b/dist/Safe/t/safesort.t
@@ -51,5 +51,6 @@ 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;
 }