Cleanup_register

[prev] [thread] [next] [Date index for 2004/12/09]

Hi everybody!

I have a small problem with the APR::Pool::cleanup_register;
I get this error_message:=20
ModPerl::Registry: Usage: APR::Pool::cleanup_register(p, cv, arg=3DNullsv)=
 at ....

In script a.pl it works fine, in other one I get this error message.=20

Here is the piece of code:

=2E...
use vars qw ($mydate %FORM %PARAM);

if ($ENV{MOD_PERL}) {
	require APR::Pool;
	&init_globals();
	shift->pool->cleanup_register(&init_globals());
}


sub init_globals {

$mydate =3D undef;
%FORM =3D ();
%PARAM =3D ();
}


Any Ideas?

I'm running RedHat ES 3.0

Thanks

Denis

"THINK THE WEB WAY."
---------------------------------------------------
	NCM - NET COMMUNICATION MANAGEMENT GmbH
---[  Denis Banovic - CTO
	mailto:denis.banovic@xxx.xx
---[  M=FChlstrasse 4a
      AT - 5023 Salzburg
      Tel. 0662 / 644 688
---[  Fax: 0662 / 644 688 - 88=20
      http://www.ncm.at
---------------------------------------------------





____________
Virus checked by G DATA AntiVirusKit
Version: AVK 15.0.1429 from 08.12.2004
Virus news: www.antiviruslab.com


        -- 
        Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html