diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1997-02-11 07:29:00 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-11 07:29:00 +1200 |
| commit | 4fdae80067c447c675a6ac92c7959d2206e207ba (patch) | |
| tree | 740e9f3cd04f3c2347cb569c759c89cd6ee2974b /t | |
| parent | 2752eb9f87187a7a0fa57ed387bf0cc9633772a9 (diff) | |
| download | perl-4fdae80067c447c675a6ac92c7959d2206e207ba.tar.gz | |
[inseparable changes from patch from perl5.003_25 to perl5.003_26]perl-5.003_26
CORE LANGUAGE CHANGES
Subject: Make \r in script an error (per Larry)
From: Chip Salzenberg <chip@perl.com>
Files: pod/perldiag.pod toke.c
CORE PORTABILITY
Subject: VMS patches post _25
Date: Fri, 07 Feb 1997 01:56:12 -0500 (EST)
From: Charles Bailey <bailey@HMIVAX.HUMGEN.UPENN.EDU>
Files: Porting/Glossary lib/ExtUtils/Liblist.pm lib/ExtUtils/MM_VMS.pm lib/ExtUtils/xsubpp perl.c vms/Makefile vms/config.vms vms/descrip.mms vms/genconfig.pl vms/perlvms.pod vms/vms.c vms/vmsish.h x2p/a2p.c
private-msgid: <01IF48W3P39W0050BD@hmivax.humgen.upenn.edu>
LIBRARY AND EXTENSIONS
Subject: Make diagnostics module strip formatting directives
From: Chip Salzenberg <chip@perl.com>
Files: lib/diagnostics.pm pod/perldiag.pod
OTHER CORE CHANGES
Subject: Fix (yet another) Tk closure problem
From: Chip Salzenberg <chip@perl.com>
Files: op.c perl.c pp_ctl.c
Subject: Fix value of C<foreach>
From: Chip Salzenberg <chip@perl.com>
Files: cop.h pp_ctl.c
Subject: Refine 'runaway string' heuristic
From: Chip Salzenberg <chip@perl.com>
Files: toke.c
Subject: Fix core dump on C<print "a", last> in eval
From: Chip Salzenberg <chip@perl.com>
Files: pp_ctl.c
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/recurse.t | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/t/op/recurse.t b/t/op/recurse.t index 6b21c66106..6594940a90 100755 --- a/t/op/recurse.t +++ b/t/op/recurse.t @@ -22,13 +22,9 @@ sub fibonacci ($) { # Highly recursive, highly aggressive. # Kids, don't try this at home. -# For example ackermann(4,0) will take quite a long time. # -# In fact, the current Perl, 5.004, will complain loudly: -# "Deep recursion on subroutine." (see perldiag) when -# computing the ackermann(4,0) because the recursion will -# become so deep (>100 levels) that Perl suspects the script -# has been lost in an infinite recursion. +# For example ackermann(4,1) will take quite a long time. +# It will simply eat away your memory. Trust me. sub ackermann ($$) { return $_[1] + 1 if ($_[0] == 0); |