From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 9 Mar 2012 22:42:35 +0000 (+0000)
Subject: fix DXUser UNIVERSAL::isa typo
X-Git-Tag: 1.57~30
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=a50f4484d80f17f29aed57f2d5bae02662cd15a2;p=spider.git

fix DXUser UNIVERSAL::isa typo
---

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 6cd6ca4f..25672f96 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -249,7 +249,7 @@ sub get
 	unless ($dbm->get($call, $data)) {
 		$ref = decode($data);
 		if ($ref) {
-			if (UNIVERSAL::isa($ref, 'DXUser')) {
+			if (!UNIVERSAL::isa($ref, 'DXUser')) {
 				dbg("DXUser::get: got strange answer from decode of $call". ref $ref. " ignoring");
 				return undef;
 			}
diff --git a/perl/Version.pm b/perl/Version.pm
index aa4f82fc..bc845492 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion);
 
 $version = '1.55';
 $subversion = '0';
-$build = '104';
-$gitversion = '4cb816f';
+$build = '107';
+$gitversion = '40953f6';
 
 1;