Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Memory Leak in Nested Closures #1787

Closed
p5pRT opened this issue Apr 6, 2000 · 3 comments
Closed

Memory Leak in Nested Closures #1787

p5pRT opened this issue Apr 6, 2000 · 3 comments
Labels
distro-Linux type-library

Comments

@p5pRT
Copy link

p5pRT commented Apr 6, 2000

Migrated from rt.perl.org#3043 (status was 'resolved')

Searchable as RT3043$
@p5pRT
Copy link
Author

p5pRT commented Apr 6, 2000

From S.Webb@ftel.co.uk

#!/usr/local/perl5/bin/perl -w

use strict;

sub FENSTransaction (&)
{
  # dummy FENSTransaction definition
}

# $leaky - true code leaks, false and it doesn't
my $leaky = 1;

foreach my $i (0..10000)
{
  if ($leaky)
  {
  leak();
  }
  else
  {
  noleak();
  }

  if (($i % 100) == 0)
  {
  system("ps v -C perl");
  }
}

sub leak
{
  my $j = 0;

  FENSTransaction {
  FENSTransaction
  {
  $j++;
  }
  }
}

sub noleak
{
  my $j = 0;

  FENSTransaction {
  noleak2(\$j);
  }
}

sub noleak2
{
  my ($j_ref) = @​_;

  FENSTransaction {
  ${j_ref}++;
  }
}

Perl Info 


Site configuration information for perl 5.00503:

Configured by root at Mon Aug 30 23:08:56 EDT 1999.

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=linux, osvers=2.2.5-22smp, archname=i386-linux
    uname='linux porky.devel.redhat.com 2.2.5-22smp #1 smp wed jun 2
09:11:51 edt 1999 i686 unknown '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-O2', gccversion=egcs-2.91.66 19990314/Linux
(egcs-1.1.2 release)
    cppflags='-Dbool=char -DHAS_BOOL -I/usr/local/include'
    ccflags ='-Dbool=char -DHAS_BOOL -I/usr/local/include'
    stdchar='char', d_stdstdio=undef, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -ldl -lm -lc -lposix -lcrypt
    libc=, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches:
    


@INC for perl 5.00503:
    /usr/lib/perl5/5.00503/i386-linux
    /usr/lib/perl5/5.00503
    /usr/lib/perl5/site_perl/5.005/i386-linux
    /usr/lib/perl5/site_perl/5.005
    .


Environment for perl 5.00503:
    HOME=/u/swebb
    LANG=en
    LANGUAGE (unset)
    LC_ALL=en_US
   
LD_LIBRARY_PATH=/opt/ODI/OS5.1/ostore/sunpro/lib:/misc/oracle-8.0.4/product/8.0.4/lib:/opt/ODI/OS5.1/ostore/sunpro/lib:/misc/oracle-8.0.4/product/8.0.4/lib:/opt/ODI/OS5.1/ostore/sunpro/lib:/misc/oracle-8.0.4/product/8.0.4/lib:/usr/local/lib:/projects/sybase/client/lib:/usr/local/lib:/projects/sybase/client/lib:/usr/local/lib:/projects/sybase/client/lib:/usr/local/lib:/projects/sybase/client/lib
    LOGDIR (unset)
   
PATH=/opt/jdk1.2/bin:/opt/jdk1.2/bin:/opt/jdk1.2/bin:/opt/jdk1.2/bin:/opt/jdk1.2/bin:/opt/ODI/OSI3.0/bin:/opt/ODI/OS5.1/ostore/sunpro/admin:/opt/ODI/OS5.1/ostore/sunpro/lib:/opt/ODI/OS5.1/ostore/sunpro/bin:/misc/oracle-8.0.4/product/8.0.4/bin:/usr/local/perl5/bin:/usr/local/bin:/opt/jdk1.2/bin:/opt/jdk1.2/bin:/opt/ODI/OSI3.0/bin:/opt/ODI/OS5.1/ostore/sunpro/admin:/opt/ODI/OS5.1/ostore/sunpro/lib:/opt/ODI/OS5.1/ostore/sunpro/bin:/misc/oracle-8.0.4/product/8.0.4/bin:/usr/local/perl5/bin:/usr/local/bin:/opt/jdk1.2/bin:/opt/jdk1.2/bin:/opt/ODI/OSI3.0/bin:/opt/ODI/OS5.1/ostore/sunpro/admin:/opt/ODI/OS5.1/ostore/sunpro/lib:/opt/ODI/OS5.1/ostore/sunpro/bin:/misc/oracle-8.0.4/product/8.0.4/bin:/usr/local/perl5/bin:/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:/usr/local/bin:/opt/bin:/usr/X11R6/bin:/projects/build-tree/system/bin:/etc:/usr/etc:/usr/local/bin/psutils:/projects/release/FENS_PERL/5.004/LATEST/SunOS-5.6-sparc/bin:/projects/release/COMMON/R4.3/LATEST/SunOS-5.6-sparc/bin:/us!
r/!
local/ucd-snmp/bin:/u/swebb/bin:/usr/local/X11R6/bin/:/projects/sybase/client/bin:/projects/sybase/client/utils:/usr/X11R6/bin:/projects/build-tree/system/bin:/etc:/usr/etc:/usr/local/bin/psutils:/projects/release/FENS_PERL/5.004/LATEST/SunOS-5.6-sparc/bin:/projects/release/COMMON/R4.3/LATEST/SunOS-5.6-sparc/bin:/usr/local/ucd-snmp/bin:/u/swebb/bin:/usr/local/X11R6/bin/:/projects/sybase/client/bin:/projects/sybase/client/utils:/usr/X11R6/bin:/projects/build-tree/system/bin:/etc:/usr/etc:/usr/local/bin/psutils:/projects/release/FENS_PERL/5.004/LATEST/SunOS-5.6-sparc/bin:/projects/release/COMMON/R4.3/LATEST/SunOS-5.6-sparc/bin:/usr/local/ucd-snmp/bin:/u/swebb/bin:/usr/local/X11R6/bin/:/projects/sybase/client/bin:/projects/sybase/client/utils:/projects/release/FENS_PERL/5.004/LATEST/SunOS-5.6-sparc/bin:/projects/release/COMMON/R4.3/LATEST/SunOS-5.6-sparc/bin:/usr/local/ucd-snmp/bin:/u/swebb/bin:/usr/local/X11R6/bin/:/misc/oracle-8.0.4/product/8.0.4/bin:/misc/oracle-8.0.4/produc!
t/!
8.0.4/local/bin:/u/oracle:/projects/sybase/client/bin:/projects/s
ybase/client/utils:/usr/bin/bin:/usr/local/latest/bin:/usr/local/bin:/opt/local/bin:/bin:/usr/bin:/usr/proc/bin:/usr/dt/bin:/usr/sbin:/usr/X11R6/bin:/usr/ucb:/projects/edl/prototype/builthttpd.new/usr/bin:/projects/release/NM/R1.0/LATEST/SunOS-5.6-sparc/bin
    PERL_BADLANG (unset)
    SHELL=/usr/local/bin/bash

@p5pRT
Copy link
Author

p5pRT commented May 1, 2003

From @iabyn

(Just reviewng old Perl bug reports).

These closure memory leaks have been fixed in the develpment branch of
Perl and
version 5.8.1-to-be.

Regards,

Dave M.

@p5pRT
Copy link
Author

p5pRT commented May 1, 2003

@iabyn - Status changed from 'open' to 'resolved'

@p5pRT p5pRT closed this as completed May 1, 2003
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
distro-Linux type-library
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
1 participant
@p5pRT