Hello,
Modperl seems to clear the global objects only when it is unloaded.
Is there a way to clear objects created with new at the end
of execution of every script ?
The code snippet is as follows in the script,
use Perl2UCS;
my $vm;
$vm = Perl2UCS->new("UCX:Volumemgr");
-----------------------------------------------
This is Perl2UCS.pm
sub new {
my( $object );
my( $class ) = shift;
if($class eq 'UCSObject' || $class eq 'Perl2UCS')
{
$class = shift;
}
if ( Perl2UCS::New( $class, $object ) ) {
return $object;
} else {
return undef;
}
}
sub DESTROY {
my( $self ) = shift;
Perl2UCS::Delete( $self );
return undef;
}
-----------------------------------------------
DESTROY is called by perl when I unload mod_perl, Can I get it
destroyed immediately after the script is executed.
Explicitly calling DESTROY in the script results in an error.
I hope Iam clear,
Thank You,
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
