lastmsgpoll => '0,Last Msg Poll,atime',
inscript => '9,In a script,yesno',
handle_xml => '9,Handles XML,yesno',
- do_pc92 => '9,Handles PC92,yesno',
- send_pc92 => '9,Send PC92,atime',
+ do_pc9x => '9,Handles PC9x,yesno',
inqueue => '9,Input Queue,parray',
);
-
-use vars qw($VERSION $BRANCH);
-($VERSION, $BRANCH) = dxver(q$Revision$);
-
# object destruction
sub DESTROY
{
my $user = $self->{user};
$user->close() if defined $user;
- $self->{conn}->disconnect;
+ $self->{conn}->disconnect if $self->{conn};
$self->del();
}