From a50f4484d80f17f29aed57f2d5bae02662cd15a2 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 9 Mar 2012 22:42:35 +0000
Subject: [PATCH] fix DXUser UNIVERSAL::isa typo

---
 perl/DXUser.pm  | 2 +-
 perl/Version.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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;
-- 
2.34.1