From 40953f6b16d17fef7237bf3ca07de23bcf58adf7 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 9 Mar 2012 22:15:30 +0000 Subject: [PATCH] add yet more changes in pc34 --- perl/DXUser.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl/DXUser.pm b/perl/DXUser.pm index 419086ad..6cd6ca4f 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -250,12 +250,12 @@ sub get $ref = decode($data); if ($ref) { if (UNIVERSAL::isa($ref, 'DXUser')) { - dbg("DXUser::get: got strange answer from decode ". ref $ref. " ignoring"); + dbg("DXUser::get: got strange answer from decode of $call". ref $ref. " ignoring"); return undef; } # we have a reference and it *is* a DXUser } else { - dbg("DXUser::get: no reference returned from decode $!"); + dbg("DXUser::get: no reference returned from decode of $call $!"); return undef; } $lru->put($call, $ref); @@ -281,7 +281,7 @@ sub get_current my $ref = $dxchan->user; return $ref if $ref && UNIVERSAL::isa($ref, 'DXUser'); - dbg("DXUser::get_current: got invalid user ref from dxchan $dxchan->{call} ". ref $ref. " ignoring"); + dbg("DXUser::get_current: got invalid user ref for $call from dxchan $dxchan->{call} ". ref $ref. " ignoring"); } return get($call); } -- 2.34.1