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

Memory leak in IO::Socket ? #529

Closed
p5pRT opened this issue Sep 20, 1999 · 9 comments
Closed

Memory leak in IO::Socket ? #529

p5pRT opened this issue Sep 20, 1999 · 9 comments

Comments

@p5pRT
Copy link
Collaborator

@p5pRT p5pRT commented Sep 20, 1999

Migrated from rt.perl.org#1376 (status was 'rejected')

Searchable as RT1376$

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Sep 20, 1999

From The RT System itself

I appear to be running into a memory leak in IO​::Socket which I can't fix. The
following example​:

#!/usr/bin/perl -w
use strict;
use IO​::Socket;

my $RemoteHost = 'localhost';
while (1) {
  my $Socket = new IO​::Socket​::INET(PeerAddr => $RemoteHost,
  PeerPort => 80,
  Proto => 'tcp',
  Type => SOCK_STREAM,
  );
  $Socket->close();
  undef $Socket;
}

I can't see anything obviously wrong with this.

I am running
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration​:
  Platform​:
  osname=linux, osvers=2.2.1-ac1, archname=i386-linux
  uname='linux porky.devel.redhat.com 2.2.1-ac1 #1 smp mon feb 1 17​:44​:44 est 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 -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'

Characteristics of this binary (from libperl)​:
  Built under linux
  Compiled at Apr 6 1999 23​:34​:07
  @​INC​:
  /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
  .

perl -e 'use IO​::Socket; print IO​::Socket->VERSION."\n"';
1.1603

Any hints what I might be doing wrong, or how I could fix this?

I tried looking through the P5P archives, asked dejanews and EFNet #perl even
(I was that desperate;) but only found a post from someone who also ran into
this problem.

I assume IO​::Socket as included with the default distribution is fairly old,
since the e-mail address of yours in perldoc IO​::Socket bounced?

Thanks in advance.

Sincerely,
  Lars Marowsky-Brée
 
--
Lars Marowsky-Brée
Network Management

teuto.net Netzdienste GmbH

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Jul 13, 2005

From @schwern

[RT_System - Sun Sep 19 18​:30​:17 1999]​:

I appear to be running into a memory leak in IO​::Socket which I can't
fix. The
following example​:

#!/usr/bin/perl -w
use strict;
use IO​::Socket;

my $RemoteHost = 'localhost';
while (1) {
my $Socket = new IO​::Socket​::INET(PeerAddr => $RemoteHost,
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM,
);
$Socket->close();
undef $Socket;
}

I can't see anything obviously wrong with this.

I cannot replicate this on OS X using 5.4.5 and 5.5.4. Are you still
having this problem in newer Perls and versions of IO?

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Jul 13, 2005

The RT System itself - Status changed from 'stalled' to 'open'

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Jul 13, 2005

@schwern - Status changed from 'open' to 'stalled'

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Aug 7, 2008

p5p@spam.wizbit.be - Status changed from 'stalled' to 'resolved'

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Aug 7, 2008

p5p@spam.wizbit.be - Status changed from 'resolved' to 'stalled'

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Nov 17, 2008

From @chipdude

virtual size rock-solid; unable to reproduce

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Nov 17, 2008

The RT System itself - Status changed from 'stalled' to 'open'

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Nov 17, 2008

@chipdude - Status changed from 'open' to 'rejected'

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.