add missing dTHR; notes for test failures due to small stacksize

p4raw-id: //depot/perl@1774

2 files changed, 32 insertions, 1 deletions

diff --git a/t/pragma/warn-mg b/t/pragma/warn-mg
index 6345b30b3d..f414cb3e80 100644
--- a/t/pragma/warn-mg
+++ b/t/pragma/warn-mg
@@ -16,6 +16,7 @@ No such signal: SIGFRED at - line 3.
 ########
 # mg.c
 use warning 'signal' ;
+$|=1;
 $SIG{"INT"} = "fred"; kill "INT",$$;
 EXPECT
 SIGINT handler "fred" not defined.
diff --git a/t/pragma/warn-regexec b/t/pragma/warn-regexec
index 3d9b566f3e..5ca776f9c1 100644
--- a/t/pragma/warn-regexec
+++ b/t/pragma/warn-regexec
@@ -12,12 +12,42 @@ __END__
 use warning 'unsafe' ;
 $_ = 'a' x (2**15+1); 
 /^()(a\1)*$/ ;
+#
+# If this test fails with a segmentation violation or similar,
+# you may have to increase the default stacksize limit in your
+# shell.  You may need superuser privileges.
+#
+# Under the sh, ksh, zsh:
+#    $ ulimit -s
+#    8192
+#    $ ulimit -s 16000
+#
+# Under the csh:
+#    % limit stacksize
+#    stacksize        8192 kbytes
+#    % limit stacksize 16000
+#
 EXPECT
-count exceeded 32766 at - line 4.
+Complex regular subexpression recursion limit (32766) exceeded at - line 4.
 ########
 # regexec.c
 use warning 'unsafe' ;
 $_ = 'a' x (2**15+1);
 /^()(a\1)*?$/ ;
+#
+# If this test fails with a segmentation violation or similar,
+# you may have to increase the default stacksize limit in your
+# shell.  You may need superuser privileges.
+#
+# Under the sh, ksh, zsh:
+#    $ ulimit -s
+#    8192
+#    $ ulimit -s 16000
+#
+# Under the csh:
+#    % limit stacksize
+#    stacksize        8192 kbytes
+#    % limit stacksize 16000
+#
 EXPECT
 Complex regular subexpression recursion limit (32766) exceeded at - line 4.