"xlaboratory@[...].com (via RT)" <perlbug-followup@[...].org>  writes:

>  # New Ticket Created by  xlaboratory@[...].com 
>  # Please include the string:  [perl #21969]
>  # in the subject line of all future correspondence about this issue. 
>  # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=21969 >
>  
>  
>  Very simple and looks like a bug...
>  
>  I tried this using perl 5.6 and 5.8 on SUN and Linux. The following code always cause "Seg
mentation fault" if you are going to produce upto 500K recursive calls, in the same time 100
K iterations works fine. BTW... The same C sample works fine. 
>  

Do you get "Out of memory" messages? On my FreeBSD box, the code eats
about 800 bytes per recursion call. Sometimes it's just an "Out of
memory" message, sometimes I get an additional segmentation fault.

Regards,
	Slaven


>  The code is below...
>  
>  ##################################
>  sub count($$) {
>  
>          my( $i, $i_max) = @_;
>  
>          count($i, $i_max) if( ++$$i < $i_max );
>  
>          return;
>  }
>  
>  my $i;
>  my $i_max = 500000;
>  
>  print "Start\n";
>  
>  count(\$i, $i_max);
>  
>  print "Stop: $i iterations...\n";
>  
>  exit;
>  #############################################
>  
>  

-- 
Slaven Rezic - slaven@[...].de
  BBBike - route planner for cyclists in Berlin
  WWW version:                           http://www.bbbike.de
  Perl/Tk version for Unix and Windows:  http://bbbike.sourceforge.net