diff options
| -rw-r--r-- | t/op/taint.t | 11 |
1 files changed, 10 insertions, 1 deletions
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}; |