Help for this page

Select Code to Download


  1. or download this
    >perl -dwe"$DB::deep = 1000; sub f { f($_[0]-1) if $_[0]; } f(150);"

...
Deep recursion on subroutine "main::f" at C:/Progs/perl5161-ap1601/lib
+/perl5db.pl line 3550.
 at C:/Progs/perl5161-ap1601/lib/perl5db.pl line 3550.
...