Hello community,

here is the log from the commit of package perl-Mojo-Pg for openSUSE:Factory 
checked in at 2018-11-12 09:41:03
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Mojo-Pg (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Mojo-Pg.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Mojo-Pg"

Mon Nov 12 09:41:03 2018 rev:14 rq:647369 version:4.11

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Mojo-Pg/perl-Mojo-Pg.changes        
2018-09-24 13:12:09.241823405 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Mojo-Pg.new/perl-Mojo-Pg.changes   
2018-11-12 09:41:06.597216061 +0100
@@ -1,0 +2,10 @@
+Thu Nov  8 06:37:23 UTC 2018 - Stephan Kulow <co...@suse.com>
+
+- updated to 4.11
+   see /usr/share/doc/packages/perl-Mojo-Pg/Changes
+
+  4.11  2018-10-18
+    - Improved various attributes to use new Mojolicious 8.03 features to avoid
+      memory leaks.
+
+-------------------------------------------------------------------

Old:
----
  Mojo-Pg-4.10.tar.gz

New:
----
  Mojo-Pg-4.11.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Mojo-Pg.spec ++++++
--- /var/tmp/diff_new_pack.WEzY1V/_old  2018-11-12 09:41:07.181215226 +0100
+++ /var/tmp/diff_new_pack.WEzY1V/_new  2018-11-12 09:41:07.185215220 +0100
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Mojo-Pg
-Version:        4.10
+Version:        4.11
 Release:        0
 %define cpan_name Mojo-Pg
 Summary:        Mojolicious ♥ PostgreSQL
@@ -31,10 +31,10 @@
 BuildRequires:  perl
 BuildRequires:  perl-macros
 BuildRequires:  perl(DBD::Pg) >= 3.005001
-BuildRequires:  perl(Mojolicious) >= 7.53
+BuildRequires:  perl(Mojolicious) >= 8.03
 BuildRequires:  perl(SQL::Abstract) >= 1.86
 Requires:       perl(DBD::Pg) >= 3.005001
-Requires:       perl(Mojolicious) >= 7.53
+Requires:       perl(Mojolicious) >= 8.03
 Requires:       perl(SQL::Abstract) >= 1.86
 %{perl_requires}
 
@@ -53,7 +53,7 @@
 find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
 
 %build
-%{__perl} Makefile.PL INSTALLDIRS=vendor
+perl Makefile.PL INSTALLDIRS=vendor
 %{__make} %{?_smp_mflags}
 
 %check

++++++ Mojo-Pg-4.10.tar.gz -> Mojo-Pg-4.11.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Mojo-Pg-4.10/Changes new/Mojo-Pg-4.11/Changes
--- old/Mojo-Pg-4.10/Changes    2018-09-15 00:20:14.000000000 +0200
+++ new/Mojo-Pg-4.11/Changes    2018-10-18 01:16:48.000000000 +0200
@@ -1,4 +1,8 @@
 
+4.11  2018-10-18
+  - Improved various attributes to use new Mojolicious 8.03 features to avoid
+    memory leaks.
+
 4.10  2018-09-15
   - Updated project metadata.
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Mojo-Pg-4.10/META.json new/Mojo-Pg-4.11/META.json
--- old/Mojo-Pg-4.10/META.json  2018-09-15 00:21:06.000000000 +0200
+++ new/Mojo-Pg-4.11/META.json  2018-10-18 01:17:38.000000000 +0200
@@ -35,7 +35,7 @@
       "runtime" : {
          "requires" : {
             "DBD::Pg" : "3.005001",
-            "Mojolicious" : "7.53",
+            "Mojolicious" : "8.03",
             "SQL::Abstract" : "1.86",
             "perl" : "5.010001"
          }
@@ -57,6 +57,6 @@
       },
       "x_IRC" : "irc://irc.freenode.net/#mojo"
    },
-   "version" : "4.10",
+   "version" : "4.11",
    "x_serialization_backend" : "JSON::PP version 2.97001"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Mojo-Pg-4.10/META.yml new/Mojo-Pg-4.11/META.yml
--- old/Mojo-Pg-4.10/META.yml   2018-09-15 00:21:06.000000000 +0200
+++ new/Mojo-Pg-4.11/META.yml   2018-10-18 01:17:38.000000000 +0200
@@ -21,7 +21,7 @@
     - t
 requires:
   DBD::Pg: '3.005001'
-  Mojolicious: '7.53'
+  Mojolicious: '8.03'
   SQL::Abstract: '1.86'
   perl: '5.010001'
 resources:
@@ -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.10'
+version: '4.11'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Mojo-Pg-4.10/Makefile.PL new/Mojo-Pg-4.11/Makefile.PL
--- old/Mojo-Pg-4.10/Makefile.PL        2018-09-12 21:22:09.000000000 +0200
+++ new/Mojo-Pg-4.11/Makefile.PL        2018-10-18 01:10:16.000000000 +0200
@@ -30,6 +30,6 @@
     },
   },
   PREREQ_PM =>
-    {'DBD::Pg' => 3.005001, Mojolicious => '7.53', 'SQL::Abstract' => '1.86'},
+    {'DBD::Pg' => 3.005001, Mojolicious => '8.03', 'SQL::Abstract' => '1.86'},
   test => {TESTS => 't/*.t t/*/*.t'}
 );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Mojo-Pg-4.10/lib/Mojo/Pg/Database.pm 
new/Mojo-Pg-4.11/lib/Mojo/Pg/Database.pm
--- old/Mojo-Pg-4.10/lib/Mojo/Pg/Database.pm    2018-08-02 01:00:59.000000000 
+0200
+++ new/Mojo-Pg-4.11/lib/Mojo/Pg/Database.pm    2018-10-18 01:15:05.000000000 
+0200
@@ -9,9 +9,9 @@
 use Mojo::Pg::Transaction;
 use Mojo::Promise;
 use Mojo::Util 'monkey_patch';
-use Scalar::Util 'weaken';
 
-has [qw(dbh pg)];
+has 'dbh';
+has pg => undef, weak => 1;
 has results_class => 'Mojo::Pg::Results';
 
 for my $name (qw(delete insert select update)) {
@@ -35,12 +35,7 @@
   $pg->_enqueue($dbh) unless $dbh->{private_mojo_no_reuse};
 }
 
-sub begin {
-  my $self = shift;
-  my $tx = Mojo::Pg::Transaction->new(db => $self);
-  weaken $tx->{db};
-  return $tx;
-}
+sub begin { Mojo::Pg::Transaction->new(db => shift) }
 
 sub disconnect {
   my $self = shift;
@@ -242,7 +237,8 @@
   my $pg = $db->pg;
   $db    = $db->pg(Mojo::Pg->new);
 
-L<Mojo::Pg> object this database belongs to.
+L<Mojo::Pg> object this database belongs to. Note that this attribute is
+weakened.
 
 =head2 results_class
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Mojo-Pg-4.10/lib/Mojo/Pg/Migrations.pm 
new/Mojo-Pg-4.11/lib/Mojo/Pg/Migrations.pm
--- old/Mojo-Pg-4.10/lib/Mojo/Pg/Migrations.pm  2018-05-08 13:42:25.000000000 
+0200
+++ new/Mojo-Pg-4.11/lib/Mojo/Pg/Migrations.pm  2018-10-18 01:11:43.000000000 
+0200
@@ -9,7 +9,7 @@
 use constant DEBUG => $ENV{MOJO_MIGRATIONS_DEBUG} || 0;
 
 has name => 'migrations';
-has 'pg';
+has pg => undef, weak => 1;
 
 sub active { $_[0]->_active($_[0]->pg->db) }
 
@@ -162,7 +162,8 @@
   my $pg      = $migrations->pg;
   $migrations = $migrations->pg(Mojo::Pg->new);
 
-L<Mojo::Pg> object these migrations belong to.
+L<Mojo::Pg> object these migrations belong to. Note that this attribute is
+weakened.
 
 =head1 METHODS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Mojo-Pg-4.10/lib/Mojo/Pg/PubSub.pm 
new/Mojo-Pg-4.11/lib/Mojo/Pg/PubSub.pm
--- old/Mojo-Pg-4.10/lib/Mojo/Pg/PubSub.pm      2018-05-08 13:42:32.000000000 
+0200
+++ new/Mojo-Pg-4.11/lib/Mojo/Pg/PubSub.pm      2018-10-18 01:14:49.000000000 
+0200
@@ -4,7 +4,7 @@
 use Mojo::JSON qw(from_json to_json);
 use Scalar::Util 'weaken';
 
-has 'pg';
+has pg => undef, weak => 1;
 
 sub DESTROY { Mojo::Util::_global_destruction() or shift->reset }
 
@@ -40,7 +40,6 @@
   return $self->{db} if $self->{db};
 
   my $db = $self->{db} = $self->pg->db;
-  weaken $db->{pg};
   weaken $self;
   $db->on(
     notification => sub {
@@ -110,7 +109,8 @@
   my $pg  = $pubsub->pg;
   $pubsub = $pubsub->pg(Mojo::Pg->new);
 
-L<Mojo::Pg> object this publish/subscribe container belongs to.
+L<Mojo::Pg> object this publish/subscribe container belongs to. Note that this
+attribute is weakened.
 
 =head1 METHODS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Mojo-Pg-4.10/lib/Mojo/Pg/Transaction.pm 
new/Mojo-Pg-4.11/lib/Mojo/Pg/Transaction.pm
--- old/Mojo-Pg-4.10/lib/Mojo/Pg/Transaction.pm 2018-05-08 13:42:50.000000000 
+0200
+++ new/Mojo-Pg-4.11/lib/Mojo/Pg/Transaction.pm 2018-10-18 01:12:53.000000000 
+0200
@@ -1,7 +1,7 @@
 package Mojo::Pg::Transaction;
 use Mojo::Base -base;
 
-has 'db';
+has db => undef, weak => 1;
 
 sub DESTROY {
   my $self = shift;
@@ -50,7 +50,8 @@
   my $db = $tx->db;
   $tx    = $tx->db(Mojo::Pg::Database->new);
 
-L<Mojo::Pg::Database> object this transaction belongs to.
+L<Mojo::Pg::Database> object this transaction belongs to. Note that this
+attribute is weakened.
 
 =head1 METHODS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Mojo-Pg-4.10/lib/Mojo/Pg.pm 
new/Mojo-Pg-4.11/lib/Mojo/Pg.pm
--- old/Mojo-Pg-4.10/lib/Mojo/Pg.pm     2018-09-11 22:47:03.000000000 +0200
+++ new/Mojo-Pg-4.11/lib/Mojo/Pg.pm     2018-10-18 01:11:55.000000000 +0200
@@ -7,7 +7,7 @@
 use Mojo::Pg::Migrations;
 use Mojo::Pg::PubSub;
 use Mojo::URL;
-use Scalar::Util qw(blessed weaken);
+use Scalar::Util 'blessed';
 use SQL::Abstract::Pg;
 
 has abstract => sub {
@@ -21,12 +21,8 @@
 has database_class  => 'Mojo::Pg::Database';
 has dsn             => 'dbi:Pg:';
 has max_connections => 1;
-has migrations      => sub {
-  my $migrations = Mojo::Pg::Migrations->new(pg => shift);
-  weaken $migrations->{pg};
-  return $migrations;
-};
-has options => sub {
+has migrations      => sub { Mojo::Pg::Migrations->new(pg => shift) };
+has options         => sub {
   {
     AutoCommit          => 1,
     AutoInactiveDestroy => 1,
@@ -36,13 +32,9 @@
   };
 };
 has [qw(password username)] => '';
-has pubsub => sub {
-  my $pubsub = Mojo::Pg::PubSub->new(pg => shift);
-  weaken $pubsub->{pg};
-  return $pubsub;
-};
+has pubsub => sub { Mojo::Pg::PubSub->new(pg => shift) };
 
-our $VERSION = '4.10';
+our $VERSION = '4.11';
 
 sub db { $_[0]->database_class->new(dbh => $_[0]->_prepare, pg => $_[0]) }
 


Reply via email to