Hello community,
here is the log from the commit of package perl-Mojo-Pg for openSUSE:Factory
checked in at 2019-10-08 19:59:33
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Mojo-Pg (Old)
and /work/SRC/openSUSE:Factory/.perl-Mojo-Pg.new.2352 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Mojo-Pg"
Tue Oct 8 19:59:33 2019 rev:21 rq:736048 version:4.17
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Mojo-Pg/perl-Mojo-Pg.changes
2019-09-07 11:52:57.706278114 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Mojo-Pg.new.2352/perl-Mojo-Pg.changes
2019-10-08 19:59:34.747901217 +0200
@@ -1,0 +2,12 @@
+Tue Oct 8 08:02:30 UTC 2019 - <timueller+p...@suse.de>
+
+- updated to 4.17
+ see /usr/share/doc/packages/perl-Mojo-Pg/Changes
+
+ 4.17 2019-10-07
+ - Reverted connection cache optimization from 4.14, because it caused
problems
+ with some connections closed by the PostgreSQL server.
+ - Updated mojo_migrations table created by Mojo::Pg::Migrations to use a
+ primary key.
+
+-------------------------------------------------------------------
Old:
----
Mojo-Pg-4.16.tar.gz
New:
----
Mojo-Pg-4.17.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Mojo-Pg.spec ++++++
--- /var/tmp/diff_new_pack.kdRIVT/_old 2019-10-08 19:59:35.271899648 +0200
+++ /var/tmp/diff_new_pack.kdRIVT/_new 2019-10-08 19:59:35.271899648 +0200
@@ -17,7 +17,7 @@
Name: perl-Mojo-Pg
-Version: 4.16
+Version: 4.17
Release: 0
%define cpan_name Mojo-Pg
Summary: Wrapper around DBD::Pg for using PostgreSql with Mojolicious
++++++ Mojo-Pg-4.16.tar.gz -> Mojo-Pg-4.17.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-Pg-4.16/Changes new/Mojo-Pg-4.17/Changes
--- old/Mojo-Pg-4.16/Changes 2019-09-04 11:12:37.000000000 +0200
+++ new/Mojo-Pg-4.17/Changes 2019-10-07 17:39:32.000000000 +0200
@@ -1,4 +1,10 @@
+4.17 2019-10-07
+ - Reverted connection cache optimization from 4.14, because it caused
problems
+ with some connections closed by the PostgreSQL server.
+ - Updated mojo_migrations table created by Mojo::Pg::Migrations to use a
+ primary key.
+
4.16 2019-09-04
- Updated DBD::Pg requirement to 3.7.4 due to certain JSON features not
working with older versions.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-Pg-4.16/META.json new/Mojo-Pg-4.17/META.json
--- old/Mojo-Pg-4.16/META.json 2019-09-04 11:16:12.000000000 +0200
+++ new/Mojo-Pg-4.17/META.json 2019-10-07 17:42:07.000000000 +0200
@@ -4,7 +4,7 @@
"Sebastian Riedel <s...@cpan.org>"
],
"dynamic_config" : 0,
- "generated_by" : "ExtUtils::MakeMaker version 7.36, CPAN::Meta::Converter
version 2.150010",
+ "generated_by" : "ExtUtils::MakeMaker version 7.38, CPAN::Meta::Converter
version 2.150010",
"license" : [
"artistic_2"
],
@@ -57,6 +57,6 @@
},
"x_IRC" : "irc://irc.freenode.net/#mojo"
},
- "version" : "4.16",
+ "version" : "4.17",
"x_serialization_backend" : "JSON::PP version 4.04"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-Pg-4.16/META.yml new/Mojo-Pg-4.17/META.yml
--- old/Mojo-Pg-4.16/META.yml 2019-09-04 11:16:12.000000000 +0200
+++ new/Mojo-Pg-4.17/META.yml 2019-10-07 17:42:07.000000000 +0200
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 7.36, CPAN::Meta::Converter version
2.150010'
+generated_by: 'ExtUtils::MakeMaker version 7.38, CPAN::Meta::Converter version
2.150010'
license: artistic_2
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -30,5 +30,5 @@
homepage: https://mojolicious.org
license: http://www.opensource.org/licenses/artistic-license-2.0
repository: https://github.com/mojolicious/mojo-pg.git
-version: '4.16'
+version: '4.17'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-Pg-4.16/lib/Mojo/Pg/Database.pm
new/Mojo-Pg-4.17/lib/Mojo/Pg/Database.pm
--- old/Mojo-Pg-4.16/lib/Mojo/Pg/Database.pm 2019-07-22 18:41:26.000000000
+0200
+++ new/Mojo-Pg-4.17/lib/Mojo/Pg/Database.pm 2019-10-07 17:36:33.000000000
+0200
@@ -160,7 +160,6 @@
return if $self->{watching} || $self->{watching}++;
my $dbh = $self->dbh;
- $dbh->{private_mojo_async} = 1;
unless ($self->{handle}) {
open $self->{handle}, '<&', $dbh->{pg_socket} or die "Can't dup: $!";
}
@@ -175,7 +174,7 @@
# Do not raise exceptions inside the event loop
my $result = do { local $dbh->{RaiseError} = 0; $dbh->pg_result };
- my $err = defined $result ? undef : $dbh->errstr;
+ my $err = defined $result ? undef : $dbh->errstr;
$self->$cb($err, $self->results_class->new(db => $self, sth => $sth));
$self->_unwatch unless $self->{waiting} || $self->is_listening;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-Pg-4.16/lib/Mojo/Pg/Migrations.pm
new/Mojo-Pg-4.17/lib/Mojo/Pg/Migrations.pm
--- old/Mojo-Pg-4.16/lib/Mojo/Pg/Migrations.pm 2019-05-31 21:33:57.000000000
+0200
+++ new/Mojo-Pg-4.17/lib/Mojo/Pg/Migrations.pm 2019-10-07 17:32:01.000000000
+0200
@@ -97,7 +97,7 @@
$db->query(
'create table if not exists mojo_migrations (
- name text unique not null,
+ name text primary key,
version bigint not null check (version >= 0)
)'
) if $results->sth->err;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-Pg-4.16/lib/Mojo/Pg.pm
new/Mojo-Pg-4.17/lib/Mojo/Pg.pm
--- old/Mojo-Pg-4.16/lib/Mojo/Pg.pm 2019-07-24 12:10:36.000000000 +0200
+++ new/Mojo-Pg-4.17/lib/Mojo/Pg.pm 2019-10-07 17:36:56.000000000 +0200
@@ -32,9 +32,9 @@
};
};
has [qw(password username)] => '';
-has pubsub => sub { Mojo::Pg::PubSub->new(pg => shift) };
+has pubsub => sub { Mojo::Pg::PubSub->new(pg => shift) };
-our $VERSION = '4.16';
+our $VERSION = '4.17';
sub db { $_[0]->database_class->new(dbh => $_[0]->_prepare, pg => $_[0]) }
@@ -53,8 +53,8 @@
# Connection information
my $db = $url->path->parts->[0];
my $dsn = defined $db ? "dbi:Pg:dbname=$db" : 'dbi:Pg:';
- if (my $host = $url->host) { $dsn .= ";host=$host" }
- if (my $port = $url->port) { $dsn .= ";port=$port" }
+ if (my $host = $url->host) { $dsn .= ";host=$host" }
+ if (my $port = $url->port) { $dsn .= ";port=$port" }
if (defined(my $username = $url->username)) { $self->username($username) }
if (defined(my $password = $url->password)) { $self->password($password) }
@@ -79,9 +79,7 @@
# Fork-safety
delete @$self{qw(pid queue)} unless ($self->{pid} //= $$) eq $$;
- while (my $dbh = shift @{$self->{queue} || []}) {
- return $dbh if $dbh->{Active};
- }
+ while (my $dbh = shift @{$self->{queue} || []}) { return $dbh if $dbh->ping }
my $dbh = DBI->connect(map { $self->$_ } qw(dsn username password options));
# Search path
@@ -100,10 +98,8 @@
if (my $parent = $self->parent) { return $parent->_enqueue($dbh) }
- # Async connections need to be checked more carefully
my $queue = $self->{queue} ||= [];
- $dbh->{private_mojo_async} = undef if my $async = $dbh->{private_mojo_async};
- push @$queue, $dbh if $dbh->{Active} && ($async ? $dbh->ping : 1);
+ push @$queue, $dbh if $dbh->{Active};
shift @$queue while @$queue > $self->max_connections;
}
