hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix (different) pc34 UNIVERSAL typo in DXProt

Browse Source
This commit is contained in:
Dirk Koopman 2012-03-09 22:51:01 +00:00
parent a50f4484d8
commit e1de45af27
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
perl/DXProt.pm
View File

@ -1111,13 +1111,13 @@ sub process_rcmd
my ($self, $tonode, $fromnode, $user, $cmd) = @_;
if ($tonode eq $main::mycall) {
my $ref = DXUser::get_current($fromnode);
unless ($ref && UNIVERSAL($ref, 'DXUser')) {
unless ($ref && UNIVERSAL::isa($ref, 'DXUser')) {
dbg("DXProt process_rcmd: user $fromnode isn't a reference (check user_asc and tell G1TLH)");
$self->send_rcmd_reply($main::mycall, $fromnode, $user, "sorry...!");
return;
}
my $cref = Route::Node::get($fromnode);
unless ($cref && UNIVERSAL($cref, 'Route')) {
unless ($cref && UNIVERSAL::isa($cref, 'Route')) {
dbg("DXProt process_rcmd: Route $fromnode isn't a reference (tell G1TLH)");
$self->send_rcmd_reply($main::mycall, $fromnode, $user, "sorry...!");
return;

4
perl/Version.pm
View File

@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion);
$version = '1.55';
$subversion = '0';
$build = '107';
$gitversion = '40953f6';
$build = '108';
$gitversion = 'a50f448';
1;