p4raw-id: //depot/vmsperl@5417
fred() if $a++ < 200
}
- fred()
+ fred();
(in cleanup) foo bar
package Foo;
fred() if $a++ < 200
}
-fred()
+fred();
EXPECT
Deep recursion on subroutine "main::fred" at - line 6.
########
fred() if $a++ < 200
}
-fred()
+fred();
EXPECT
########
# pp_ctl.c