Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Mojo-Pg for openSUSE:Factory checked in at 2026-04-09 16:08:43 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Mojo-Pg (Old) and /work/SRC/openSUSE:Factory/.perl-Mojo-Pg.new.21863 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Mojo-Pg" Thu Apr 9 16:08:43 2026 rev:32 rq:1345210 version:4.290.0 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Mojo-Pg/perl-Mojo-Pg.changes 2025-10-10 17:09:14.596977536 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Mojo-Pg.new.21863/perl-Mojo-Pg.changes 2026-04-09 16:21:21.286154254 +0200 @@ -1,0 +2,9 @@ +Mon Mar 23 11:11:14 UTC 2026 - Tina Müller <[email protected]> + +- updated to 4.290.0 (4.29) + see /usr/share/doc/packages/perl-Mojo-Pg/Changes + + 4.29 2026-03-23 + - Added rv attribute to Mojo::Pg::Results. + +------------------------------------------------------------------- Old: ---- Mojo-Pg-4.28.tar.gz New: ---- Mojo-Pg-4.29.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Mojo-Pg.spec ++++++ --- /var/tmp/diff_new_pack.oS3jTg/_old 2026-04-09 16:21:23.110229100 +0200 +++ /var/tmp/diff_new_pack.oS3jTg/_new 2026-04-09 16:21:23.126229756 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Mojo-Pg # -# Copyright (c) 2025 SUSE LLC and contributors +# Copyright (c) 2026 SUSE LLC and contributors # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,10 +18,10 @@ %define cpan_name Mojo-Pg Name: perl-Mojo-Pg -Version: 4.280.0 +Version: 4.290.0 Release: 0 -# 4.28 -> normalize -> 4.280.0 -%define cpan_version 4.28 +# 4.29 -> normalize -> 4.290.0 +%define cpan_version 4.29 License: Artistic-2.0 Summary: Wrapper around DBD::Pg for using PostgreSql with Mojolicious URL: https://metacpan.org/release/%{cpan_name} ++++++ Mojo-Pg-4.28.tar.gz -> Mojo-Pg-4.29.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojo-Pg-4.28/Changes new/Mojo-Pg-4.29/Changes --- old/Mojo-Pg-4.28/Changes 2025-09-29 14:22:59.000000000 +0200 +++ new/Mojo-Pg-4.29/Changes 2026-03-23 11:25:47.000000000 +0100 @@ -1,4 +1,7 @@ +4.29 2026-03-23 + - Added rv attribute to Mojo::Pg::Results. + 4.28 2025-08-29 - Fixed DBD:Pg bug with a workaround (https://github.com/bucardo/dbdpg/issues/105). (TFBW) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojo-Pg-4.28/META.json new/Mojo-Pg-4.29/META.json --- old/Mojo-Pg-4.28/META.json 2025-09-29 14:23:32.000000000 +0200 +++ new/Mojo-Pg-4.29/META.json 2026-03-23 11:29:32.000000000 +0100 @@ -60,6 +60,6 @@ "web" : "https://web.libera.chat/#mojo"; } }, - "version" : "4.28", + "version" : "4.29", "x_serialization_backend" : "JSON::PP version 4.16" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojo-Pg-4.28/META.yml new/Mojo-Pg-4.29/META.yml --- old/Mojo-Pg-4.28/META.yml 2025-09-29 14:23:32.000000000 +0200 +++ new/Mojo-Pg-4.29/META.yml 2026-03-23 11:29:32.000000000 +0100 @@ -32,5 +32,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.28' +version: '4.29' x_serialization_backend: 'CPAN::Meta::YAML version 0.020' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojo-Pg-4.28/lib/Mojo/Pg/Database.pm new/Mojo-Pg-4.29/lib/Mojo/Pg/Database.pm --- old/Mojo-Pg-4.28/lib/Mojo/Pg/Database.pm 2025-09-29 14:20:33.000000000 +0200 +++ new/Mojo-Pg-4.29/lib/Mojo/Pg/Database.pm 2026-03-23 11:04:21.000000000 +0100 @@ -97,12 +97,12 @@ } $sth->bind_param($i + 1, $param, $attrs); } - $sth->execute; + my $rv = $sth->execute; # Blocking unless ($cb) { $self->_notifications; - return $self->results_class->new(db => $self, sth => $sth); + return $self->results_class->new(db => $self, sth => $sth, rv => $rv); } # Non-blocking @@ -181,10 +181,10 @@ my ($sth, $cb) = @{delete $self->{waiting}}{qw(sth cb)}; # 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 $rv = do { local $dbh->{RaiseError} = 0; $dbh->pg_result }; + my $err = defined $rv ? undef : $dbh->errstr; - $self->$cb($err, $self->results_class->new(db => $self, sth => $sth)); + $self->$cb($err, $self->results_class->new(db => $self, sth => $sth, rv => $rv)); $self->_finish_when_safe(@{delete $self->{finish}}) if $self->{finish}; $self->_unwatch unless $self->{waiting} || $self->is_listening; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojo-Pg-4.28/lib/Mojo/Pg/Results.pm new/Mojo-Pg-4.29/lib/Mojo/Pg/Results.pm --- old/Mojo-Pg-4.28/lib/Mojo/Pg/Results.pm 2025-09-29 14:20:33.000000000 +0200 +++ new/Mojo-Pg-4.29/lib/Mojo/Pg/Results.pm 2026-03-23 11:06:52.000000000 +0100 @@ -5,7 +5,7 @@ use Mojo::JSON qw(from_json); use Mojo::Util qw(tablify); -has [qw(db sth)]; +has [qw(db rv sth)]; sub DESTROY { my $self = shift; @@ -91,6 +91,13 @@ L<Mojo::Pg::Database> object these results belong to. +=head2 rv + + my $rv = $results->rv; + $results = $results->rv($rv); + +Return value from L<DBD::Pg> execute methods. + =head2 sth my $sth = $results->sth; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojo-Pg-4.28/lib/Mojo/Pg.pm new/Mojo-Pg-4.29/lib/Mojo/Pg.pm --- old/Mojo-Pg-4.28/lib/Mojo/Pg.pm 2025-09-29 14:21:28.000000000 +0200 +++ new/Mojo-Pg-4.29/lib/Mojo/Pg.pm 2026-03-23 11:25:38.000000000 +0100 @@ -22,7 +22,7 @@ has [qw(password username)] => ''; has pubsub => sub { Mojo::Pg::PubSub->new(pg => shift) }; -our $VERSION = '4.28'; +our $VERSION = '4.29'; sub db { $_[0]->database_class->new(dbh => $_[0]->_prepare, pg => $_[0]) } @@ -528,7 +528,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 2014-2025, Sebastian Riedel and others. +Copyright (C) 2014-2026, Sebastian Riedel and others. This program is free software, you can redistribute it and/or modify it under the terms of the Artistic License version 2.0. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojo-Pg-4.28/t/crud.t new/Mojo-Pg-4.29/t/crud.t --- old/Mojo-Pg-4.28/t/crud.t 2025-09-27 17:54:43.000000000 +0200 +++ new/Mojo-Pg-4.29/t/crud.t 2026-03-23 11:25:14.000000000 +0100 @@ -80,11 +80,28 @@ [{id => 1, name => 'yada'}, {id => 2, name => 'baz'}], 'right structure'; }; +subtest 'Non-blocking update' => sub { + my $result; + my $promise = Mojo::Promise->new; + $db->update( + 'crud_test', + {name => 'whatever'}, + {name => 'baz'}, + undef, + sub { + $result = pop->rv; + $promise->resolve; + } + ); + $promise->wait; + is $result, 1, 'one row updated'; +}; + subtest 'Delete' => sub { - $db->delete('crud_test', {name => 'yada'}); - is_deeply $db->select('crud_test', undef, undef, {-asc => 'id'})->hashes->to_array, [{id => 2, name => 'baz'}], + is $db->delete('crud_test', {name => 'yada'})->rv, 1, 'one row deleted'; + is_deeply $db->select('crud_test', undef, undef, {-asc => 'id'})->hashes->to_array, [{id => 2, name => 'whatever'}], 'right structure'; - $db->delete('crud_test'); + is $db->delete('crud_test')->rv, 1, 'one row deleted'; is_deeply $db->select('crud_test')->hashes->to_array, [], 'right structure'; }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mojo-Pg-4.28/t/results.t new/Mojo-Pg-4.29/t/results.t --- old/Mojo-Pg-4.28/t/results.t 2022-03-10 18:00:36.000000000 +0100 +++ new/Mojo-Pg-4.29/t/results.t 2026-03-23 11:13:27.000000000 +0100 @@ -52,6 +52,8 @@ is_deeply $db->query('SELECT * FROM results_test')->hash, {id => 1, name => 'foo'}, 'right structure'; is_deeply $db->query('SELECT * FROM results_test')->hashes->to_array, [{id => 1, name => 'foo'}, {id => 2, name => 'bar'}], 'right structure'; + ok $db->query('UPDATE results_test SET name = ? WHERE name = ?', 'foo', 'does_not_exist')->rv < 1, 'no rows updated'; + is $db->query('UPDATE results_test SET name = ? WHERE name = ?', 'bar', 'bar')->rv, 1, 'one row updated'; is $pg->db->query('SELECT * FROM results_test')->text, "1 foo\n2 bar\n", 'right text'; }; ++++++ _scmsync.obsinfo ++++++ --- /var/tmp/diff_new_pack.oS3jTg/_old 2026-04-09 16:21:24.130270954 +0200 +++ /var/tmp/diff_new_pack.oS3jTg/_new 2026-04-09 16:21:24.170272596 +0200 @@ -1,6 +1,6 @@ -mtime: 1759843919 -commit: f9cf00786282bc68721260c0bd411ec8d34d9d6cb112894627aee089d044c2bb +mtime: 1774264275 +commit: 600dda4e547918265f0b9bb7b0e5947549a19015bf402bf38ce83a073dd4a831 url: https://src.opensuse.org/perl/perl-Mojo-Pg.git -revision: f9cf00786282bc68721260c0bd411ec8d34d9d6cb112894627aee089d044c2bb +revision: 600dda4e547918265f0b9bb7b0e5947549a19015bf402bf38ce83a073dd4a831 projectscmsync: https://src.opensuse.org/perl/_ObsPrj ++++++ build.specials.obscpio ++++++ ++++++ build.specials.obscpio ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/.gitignore new/.gitignore --- old/.gitignore 1970-01-01 01:00:00.000000000 +0100 +++ new/.gitignore 2026-04-07 14:42:11.000000000 +0200 @@ -0,0 +1 @@ +.osc
