[tpop3d-discuss] auth-perl onlogin handler

[Kevin Bonner]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

After seeing the ease of supporting bulletins with auth-perl, I got curious 
and started playing around.  The code in my script works (at the moment it 
just updates a database field), but I keep seeing the following error when a 
successful connection is made:

Attempt to free unreferenced scalar.

I'm using perl 5.6.1 and the '-d' and '-v' options for testing.  This error 
happens at FREETMPS of auth_perl_callfn in auth_perl.c.  I tried just using 
the following as the onlogin function and see the same results:

sub onlogin_handler ($) {
        my $req = shift;
        return { };
}

The relevant config I have is:
        auth-perl-enable: true
        auth-perl-start: do '/usr/local/etc/tpop3d/tpop3d.pl'
        auth-perl-onlogin: onlogin_handler

onlogin-child-wait is not enabled.  I've tried numerous changes to the source 
without any results, other than determining where the message is displayed.  
Is this anything to worry about?  I'm inclined to say no, as the script does 
complete what I want it to, but would like the input of others.

Kevin Bonner
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)

iD8DBQE/Snud/9i/ml3OBYMRAnCDAJ0bIdV/+3HtLRyYy3kp7jioeMESGwCdH/6m
sqh+j+MCzaudxqLR3++iEtw=
=f9T/
-----END PGP SIGNATURE-----