3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.5 2002/12/01 22:19:33 joko |
7 |
|
# + just disconnect if COREHANDLE exists |
8 |
|
# |
9 |
# Revision 1.4 2002/12/01 04:45:38 joko |
# Revision 1.4 2002/12/01 04:45:38 joko |
10 |
# + sub eraseAll |
# + sub eraseAll |
11 |
# + sub createDb |
# + sub createDb |
136 |
|
|
137 |
# call "disconnect" or alike on COREHANDLE |
# call "disconnect" or alike on COREHANDLE |
138 |
# was: $self->{COREHANDLE}->disconnect(); |
# was: $self->{COREHANDLE}->disconnect(); |
139 |
$disconnectMethod && ( $self->{COREHANDLE}->$disconnectMethod() ); |
$disconnectMethod && $self->{COREHANDLE} && ( $self->{COREHANDLE}->$disconnectMethod() ); |
140 |
|
|
141 |
undef $self->{COREHANDLE}; |
undef $self->{COREHANDLE}; |
142 |
} |
} |