Make obscount disconnections visible

There may be a problem with the obscount mechanism not working
for some reason.

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 345b61cb42f6965a121572662a4c9239b1983f0f..21940b43d55e73ca2a7384323f78c79c82ed185c 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -885,14 +885,14 @@ sub time_out_pc92_routes
                my $o = $n->dec_obs;
                if ($o <= 0) {
                        if (my $dxchan = DXChannel::get($n->call)) {
-                               dbg("ROUTE: disconnecting local pc92 $dxchan->{call} on obscount") if isdbg('route');
+                               dbg("disconnecting local pc92 $dxchan->{call} on obscount");
                                $dxchan->disconnect;
                                next;
                        }
                        my @parents = map {Route::Node::get($_)} $n->parents;
                        for (@parents) {
                                if ($_) {
-                                       dbg("ROUTE: deleting pc92 $_->{call} from $n->{call} on obscount") if isdbg('route');
+                                       dbg("deleting pc92 $_->{call} from $n->{call} on obscount");
                                        push @rdel, $n->del($_);
                                }
                        }

diff --git a/perl/Version.pm b/perl/Version.pm
index b0305ac96d1f8b3b32e5ca127d208db6923743a3..7c702ce1adb956e6debb196813e62eec9f5d84c7 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '74';
+$build = '75';
 
 1;