From a1737b427ef6d659a04c0fd9ff136645fc5958f1 Mon Sep 17 00:00:00 2001
From: gregor herrmann <gregoa@debian.org>
Date: Sun, 16 Jun 2024 01:35:38 +0200
Subject: [PATCH] fix (test) failure with perl 5.40

---
 lib/UR/Namespace/Command/Define/Datasource/Sqlite.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/UR/Namespace/Command/Define/Datasource/Sqlite.pm b/lib/UR/Namespace/Command/Define/Datasource/Sqlite.pm
index e1cff9bf..cc07b525 100644
--- a/lib/UR/Namespace/Command/Define/Datasource/Sqlite.pm
+++ b/lib/UR/Namespace/Command/Define/Datasource/Sqlite.pm
@@ -38,7 +38,8 @@ sub server {
     my $super_server = $self->super_can('server');
     if (@_) {
         # unusual case, setting the server
-        return $super_server($self,@_);
+        my $server = $super_server->($self,@_);
+        return $server;
     }
 
     my $server = $super_server->($self);