summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2022-05-28 12:29:47 +0100
committerDavid Mitchell <davem@iabyn.com>2022-06-20 11:27:22 +0100
commit9d1ea90bdc34326fa7d7fa0f0149c2bc09791d88 (patch)
treea4c8943f96518c8ff29794938d680e321a6487fb
parenta8c38aeb02f54027c283d5d8948af4947f669700 (diff)
downloadperl-9d1ea90bdc34326fa7d7fa0f0149c2bc09791d88.tar.gz
t/op/catch.t: add comments explaining its purpose
This test file didn't have any comments explaining what it was for: especially confusing as there's no 'catch' op.
-rw-r--r--t/op/catch.t6
1 files changed, 6 insertions, 0 deletions
diff --git a/t/op/catch.t b/t/op/catch.t
index 2ed6a16d9b..92f3970772 100644
--- a/t/op/catch.t
+++ b/t/op/catch.t
@@ -1,5 +1,11 @@
#!perl
+# Test that exception catching is set up early enough when executing
+# pp_entereval() etc. There used to be a gap where an exception could
+# be raised before perl was ready to catch it.
+#
+# RT #105930: eval 'UNITCHECK{die}' crashes inside FETCH
+
BEGIN {
chdir 't' if -d 't';
require './test.pl';