Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!carssdf!usenet
From: usenet@carssdf.UUCP (John Watson)
Newsgroups: comp.lang.perl
Subject: memory leak
Message-ID: <284@carssdf.UUCP>
Date: 17 Feb 91 14:49:09 GMT
Distribution: usa
Organization: C.A.R.S.,Middlesex,NJ
Lines: 43

Lary,  While you are fixing up 4.0,  please look for a memory leak in 
eval,  possibly you are not freeing up tmpstr?

Also please update your perldb to include something like:

*** /usr/lib/perl/perldb.pl	Wed Jan 23 10:53:39 1991
--- perldb.pl	Sun Jan 13 19:25:08 1991
***************
*** 499,511 ****
      push(@stack, $single);
      $single &= 1;
      $single |= 4 if $#stack == $deep;
      if (wantarray) {
! 	@i = &$sub;
  	$single |= pop(@stack);
  	@i;
      }
      else {
! 	$i = &$sub;
  	$single |= pop(@stack);
  	$i;
      }
--- 494,507 ----
      push(@stack, $single);
      $single &= 1;
      $single |= 4 if $#stack == $deep;
+ 	local(@args) = @_;
      if (wantarray) {
! 	@i = &$sub(@args);
  	$single |= pop(@stack);
  	@i;
      }
      else {
! 	$i = &$sub(@args);
  	$single |= pop(@stack);
  	$i;
      }


So that we can pass arguments to a "usersub" defined subroutine.  I think
this code used to be there about a dozen revisions back.  

Thanks,   John Watson     rutgers!carssdf!usenet