Unit-test that try{} blocks are invisible to caller()

1 files changed, 16 insertions, 0 deletions

diff --git a/t/op/try.t b/t/op/try.t
index 5539a3b83e..32095662f1 100644
--- a/t/op/try.t
+++ b/t/op/try.t
@@ -249,4 +249,20 @@ no warnings 'experimental::try';
     ok(eq_array(\@list, [4, 5, 6]), 'do { try/catch } in list context');
 }
 
+# try{} blocks should be invisible to caller()
+{
+    my $caller;
+    sub A { $caller = sprintf "%s (%s line %d)", (caller 1)[3,1,2]; }
+
+    sub B {
+        try { A(); }
+        catch ($e) {}
+    }
+
+    my $LINE = __LINE__+1;
+    B();
+
+    is($caller, "main::B ($0 line $LINE)", 'try {} block is invisible to caller()');
+}
+
 done_testing;