|
@@ -486,13 +486,11 @@ sub new_from_caps {
|
|
|
return $self->new(%args);
|
|
return $self->new(%args);
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
-before 'DEMOLISH' => sub {
|
|
|
|
|
|
|
+sub DEMOLISH {
|
|
|
my ($self) = @_;
|
|
my ($self) = @_;
|
|
|
return if $$ != $self->pid;
|
|
return if $$ != $self->pid;
|
|
|
$self->quit() if ( $self->auto_close && defined $self->session_id );
|
|
$self->quit() if ( $self->auto_close && defined $self->session_id );
|
|
|
-};
|
|
|
|
|
-
|
|
|
|
|
-sub DEMOLISH {}
|
|
|
|
|
|
|
+}
|
|
|
|
|
|
|
|
# This is an internal method used the Driver & is not supposed to be used by
|
|
# This is an internal method used the Driver & is not supposed to be used by
|
|
|
# end user. This method is used by Driver to set up all the parameters
|
|
# end user. This method is used by Driver to set up all the parameters
|