@@ -, +, @@ Koha::Plugins::Base::_version_compare $self->_version_compare - Apply the unit tests patch - Run: $ kshell k$ prove t/db_dependent/Plugins.t - Apply this patch - Run: k$ prove t/db_dependent/Plugins.t - Sign off :-D --- Koha/Plugins/Base.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) --- a/Koha/Plugins/Base.pm +++ a/Koha/Plugins/Base.pm @@ -265,8 +265,14 @@ if ( _version_compare( '2.6.26', '2.6.0' ) == 1 ) { =cut sub _version_compare { - my $ver1 = shift || 0; - my $ver2 = shift || 0; + my @args = @_; + + if ( $args[0]->isa('Koha::Plugins::Base') ) { + shift @args; + } + + my $ver1 = shift @args || 0; + my $ver2 = shift @args || 0; my @v1 = split /[.+:~-]/, $ver1; my @v2 = split /[.+:~-]/, $ver2; --