mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
fix (different) pc34 UNIVERSAL typo in DXProt
This commit is contained in:
parent
a50f4484d8
commit
e1de45af27
@ -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;
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user