Re: [tpop3d-discuss] Re: Too many open files

[John P Connor]

> > I can't reproduce this here. The running tpop3d doesn't
> > create additional file descriptors, as checked by looking
> > at /proc/$pid/fd on Linux. I don't know what tool you can
> > use to test this on Solaris.

I think this was my problem .. I missed an "untie" off in my auth script. 
Trying to be clever & only tying once, you see, & untying at different 
points. Oops.

> I'll have a play with Purify, if someone can tell me the test
> conditions and how to recreate it?

Well, I still see process size growth, using the "noddy" authenticator I 
mentioned before:

sub auth {
  my $packet = shift;

                $packet = {
                        result  => 'YES',
                        uid     => 500,
                        gid     => 500,
                        mailbox => '/var/mail/test',
                        mboxtype=> 'maildir',
                        domain  => '',
                };
        $packet;
}

sub auth_finish {
}


I'm using a simple "exercising" script, which is this:

#!/usr/local/bin/perl

use Net::POP3;
 while(1) {
        $pop = Net::POP3->new("polanski", Timeout => 120);
        $pop->user('test');
        $pop->pass('test');
        select(undef,undef,undef,5);
        $pop->quit();
}

 & running about 15-20 of them in the background, started at random 
intervals. Slowly, tpop3d starts to grow in size. The account has only a 
single mail in it.

I'm running on Solaris 8 with latest patch kit & Perl 5.61. I built the s/w 
with gcc v2.95.3. If you want my actual binary, I can supply it :-)


Cheers

John