From af89892edf2ed1bf0c26d1b75e74d81410d8c81f Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Sun, 11 Mar 2012 14:27:29 +1100
Subject: [rt #111654] TODO test for tainted die propagation

---
 t/op/taint.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/t/op/taint.t b/t/op/taint.t
index 1b754399f9..095c99115a 100644
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -17,7 +17,7 @@ BEGIN {
 use strict;
 use Config;
 
-plan tests => 793;
+plan tests => 794;
 
 $| = 1;
 
@@ -2197,6 +2197,15 @@ pass("no death when TARG of ref is tainted");
     is_tainted "\F$utf8", "under locale, \\Futf8 taints the result";
 }
 
+{ # 111654
+  local $::TODO = "RT #111654";
+  eval {
+    eval { die "Test\n".substr($ENV{PATH}, 0, 0); };
+    die;
+  };
+  like($@, qr/^Test\n\t\.\.\.propagated at /, "error should be propagated");
+}
+
 # This may bomb out with the alarm signal so keep it last
 SKIP: {
     skip "No alarm()"  unless $Config{d_alarm};
-- 
cgit v1.2.1