X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBBS.pm;h=741fb116a15da803d27a9f24730f7ba3f4a72bec;hb=e39b738850b9a122b60b179e9723e546ddacfd62;hp=c8f3b1f3dc9f7b979b9fdcd1def3582807784b0f;hpb=f155969d600561b9ef151a7ce2494a0c89aed033;p=spider.git

diff --git a/perl/BBS.pm b/perl/BBS.pm
index c8f3b1f3..741fb116 100644
--- a/perl/BBS.pm
+++ b/perl/BBS.pm
@@ -123,11 +123,12 @@ sub normal
 #
 # end a connection (called by disconnect)
 #
-sub finish
+sub disconnect
 {
 	my $self = shift;
 	my $call = $self->call;
 	Log('BBS', "$call", "disconnected");
+	$self->SUPER::disconnect;
 }
 
 #