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

Leak in MLDBM under Linux #80

Closed
p5pRT opened this issue Jun 18, 1999 · 3 comments
Closed

Leak in MLDBM under Linux #80

p5pRT opened this issue Jun 18, 1999 · 3 comments

Comments

@p5pRT
Copy link
Collaborator

@p5pRT p5pRT commented Jun 18, 1999

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

Searchable as RT883$

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Jun 18, 1999

From modus@ns.asimov.net

-----------------------------------------------------------------
The following code leaks fairly severely on every Linux system I've tried it
on, running various releases of 5.004 and 5.005. It does not appear to leak
under Solaris x86 or sparc. I have not been ableto try other operating
systems. Gurusamy Sarathy asked me to send this using perlbug, since it
looks to be a problem with perl internals.

The offending code​:

#!/usr/bin/perl -w

use MLDBM qw(DB_File);
use Fcntl;
use strict;

my %in;

tie %in, 'MLDBM', 'testmldbm', O_CREAT|O_RDWR, 0640 || die $1;
$in{'1'} = 'a' x 4082; # On the systems that I tested, this stops leaking if
  # changed to 4081. This number _may_ be system
  # dependant.
untie %in;

while(1) {
  tie %in, 'MLDBM', 'testmldbm', O_RDONLY, 0640 || die $1;
  my $mem = $in{'1'};
  untie %in;
}

Perl Info


This perlbug was built using Perl 5.00503 - Mon Jun 14 09:34:26 PDT 1999
It is being executed now by  Perl 5.00503 - Mon Jun 14 22:53:23 PDT 1999.

Site configuration information for perl 5.00503:

Configured by modus at Mon Jun 14 22:53:23 PDT 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 hq 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='-g', gccversion=2.7.2.3
    cppflags='-Dbool=char -DHAS_BOOL -DDEBUGGING'
    ccflags ='-Dbool=char -DHAS_BOOL -DDEBUGGING'
    stdchar='char', d_stdstdio=define, 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 -lndbm -lgdbm -ldb -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=/home/modus
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/usr/bin:/bin:/usr/bin:/usr/X11R6/bin:/home/modus/bin
    PERL_BADLANG (unset)
    SHELL=/bin/bash

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Jul 24, 2000

From [Unknown Contact. See original ticket]

does not leak when tested anymore on similar systems. (probably fixed in MLDBM)
clsoed

@p5pRT p5pRT closed this Nov 28, 2003
@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Nov 28, 2003

From The RT System itself

does not leak when tested anymore on similar systems. (probably fixed in MLDBM)
clsoed

karenetheridge added a commit that referenced this issue Nov 2, 2019
  [DELTA]

5.20191102  2019-11-02 05:34:43Z
  * fix bad pod markup in perlfaq8 (PR #78; thanks, Joaquín Ferrero!)
  * remove stale section about lib.pm (PR #82, Dan Book)
  * update perlfaq9 to reference Email::Stuffer (PR #79, Dan Book)
  * update perlfaq9 to reference URL::Search (PR #80, Dan Book)
  * update perlfaq9 to use HTTP::Tiny (PR #81, Dan Book)
  * fix some broken links (issue #71, dctabuyz)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Linked pull requests

Successfully merging a pull request may close this issue.

None yet
1 participant
You can’t perform that action at this time.