projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
do non blocking connects
[spider.git]
/
perl
/
DXChannel.pm
diff --git
a/perl/DXChannel.pm
b/perl/DXChannel.pm
index 717dabbe0618500b197fdee51135206876d771fd..3e32f429cfe39e745bae74f3f3283ce160a342d4 100644
(file)
--- a/
perl/DXChannel.pm
+++ b/
perl/DXChannel.pm
@@
-4,7
+4,7
@@
# This is the base class for all channel operations, which is everything to do
# with input and output really.
#
# This is the base class for all channel operations, which is everything to do
# with input and output really.
#
-# The instance variable in the outside world will be generally be called $dxchan
n
+# The instance variable in the outside world will be generally be called $dxchan
#
# This class is 'inherited' (if that is the goobledegook for what I am doing)
# by various other modules. The point to understand is that the 'instance variable'
#
# This class is 'inherited' (if that is the goobledegook for what I am doing)
# by various other modules. The point to understand is that the 'instance variable'
@@
-33,7
+33,7
@@
use DXDebug;
use Filter;
use strict;
use Filter;
use strict;
-use vars qw(%channels %valid);
+use vars qw(%channels %valid
@ISA
);
%channels = ();
%channels = ();
@@
-370,12
+370,11
@@
sub disconnect
{
my $self = shift;
my $user = $self->{user};
{
my $self = shift;
my $user = $self->{user};
- my $conn = $self->{conn};
my $call = $self->{call};
my $call = $self->{call};
- $self->finish
($conn)
;
+ $self->finish;
$user->close() if defined $user;
$user->close() if defined $user;
- $
conn->disconnect() if $conn
;
+ $
self->{conn}->disconnect
;
$self->del();
}
$self->del();
}