this todo is only relevant before 5.14
Jesse Luehrs [Wed, 2 Jan 2013 16:27:27 +0000 (10:27 -0600)]
t/basic.t

index 79c35ad..93e7b03 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -133,7 +133,7 @@ sub Evil::new { bless { }, $_[0] }
                die "foo";
        } catch {
                pass("catch invoked");
-               local $TODO = "i don't think we can ever make this work sanely, maybe with SIG{__DIE__}";
+               local $TODO = "i don't think we can ever make this work sanely, maybe with SIG{__DIE__}" if $] < 5.014;
                like($_, qr/foo/);
        };