1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
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);
|
