Description: fix (test) failure with perl 5.40
 #   Failed test 'use UR::All;'
 #   at t/URT/t/00_load.t line 11.
 #     Tried to use 'UR::All'.
 #     Error:  Missing comma after first argument to return at /build/libur-perl-0.470+ds/lib/UR/Namespace/Command/Define/Datasource/Sqlite.pm line 41, near ");"
.
 #   Failed test 'use UR::Namespace::Command::Define::Datasource::Sqlite;'
 #   at t/URT/t/80_command_define_datasource.t line 29.
 #     Tried to use 'UR::Namespace::Command::Define::Datasource::Sqlite'.
 #     Error:  Missing comma after first argument to return at /build/libur-perl-0.470+ds/lib/UR/Namespace/Command/Define/Datasource/Sqlite.pm line 41, near ");"
Origin: vendor
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2024-06-16
Forwarded: https://github.com/genome/UR/pull/157
Bug: https://github.com/genome/UR/pull/157

--- a/lib/UR/Namespace/Command/Define/Datasource/Sqlite.pm
+++ b/lib/UR/Namespace/Command/Define/Datasource/Sqlite.pm
@@ -38,7 +38,8 @@
     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);