defer "deep recursion" warnings until CXt_SUB context is properly

set up

p4raw-id: //depot/perl@1945

1 files changed, 7 insertions, 3 deletions

diff --git a/t/pragma/warn/pp_hot b/t/pragma/warn/pp_hot
index ab180949e7..c78b2667e6 100644
--- a/t/pragma/warn/pp_hot
+++ b/t/pragma/warn/pp_hot
@@ -90,10 +90,14 @@ sub fred
 { 
     fred() if $a++ < 200
 } 
-
-fred()
+{
+  local $SIG{__WARN__} = sub {
+    die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
+  };
+  fred();
+}
 EXPECT
-Deep recursion on subroutine "main::fred" at - line 5.
+ok
 ########
 # pp_hot.c
 use warning 'recursion' ;