X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBBS.pm;h=c8f3b1f3dc9f7b979b9fdcd1def3582807784b0f;hb=f155969d600561b9ef151a7ce2494a0c89aed033;hp=e2920a476f23d3fa21bde78e71f23b6bc202162e;hpb=6b19958cbe351af8d5462f4e0e03b87875eec16a;p=spider.git

diff --git a/perl/BBS.pm b/perl/BBS.pm
index e2920a47..c8f3b1f3 100644
--- a/perl/BBS.pm
+++ b/perl/BBS.pm
@@ -15,7 +15,7 @@ use strict;
 use DXUser;
 use DXChannel;
 use DB_File;
-use Carp;
+use DXDebug;
 
 @ISA = qw(DXChannel);
 
@@ -39,7 +39,6 @@ sub init
 sub new 
 {
 	my $self = DXChannel::alloc(@_);
-	$self->{'sort'} = 'B';	
 	return $self;
 }