diff -Nru libpgobject-perl-1.402.8/Changes libpgobject-perl-1.402.9/Changes --- libpgobject-perl-1.402.8/Changes 2015-10-10 15:47:10.000000000 +0000 +++ libpgobject-perl-1.402.9/Changes 2016-02-13 13:23:48.000000000 +0000 @@ -1,5 +1,8 @@ Revision history for PGObject +1.402.9 2016-02-13 + Fixing warning in map + 1.402.8 2015-10-10 Fixing array ref handling, and tightening up ref handling diff -Nru libpgobject-perl-1.402.8/debian/changelog libpgobject-perl-1.402.9/debian/changelog --- libpgobject-perl-1.402.8/debian/changelog 2015-11-09 20:19:58.000000000 +0000 +++ libpgobject-perl-1.402.9/debian/changelog 2016-02-15 16:58:28.000000000 +0000 @@ -1,3 +1,17 @@ +libpgobject-perl (1.402.9-1) unstable; urgency=medium + + * Team upload. + + [ Salvatore Bonaccorso ] + * debian/control: Use HTTPS transport protocol for Vcs-Git URI + + [ Lucas Kanashiro ] + * Import upstream version 1.402.9 + * Declare compliance with Debian policy 3.9.7 + * Create a patch fixing spelling error in manpage + + -- Lucas Kanashiro Sun, 14 Feb 2016 23:18:05 -0200 + libpgobject-perl (1.402.8-1) unstable; urgency=medium * Team upload. diff -Nru libpgobject-perl-1.402.8/debian/control libpgobject-perl-1.402.9/debian/control --- libpgobject-perl-1.402.8/debian/control 2015-11-09 20:19:58.000000000 +0000 +++ libpgobject-perl-1.402.9/debian/control 2016-02-15 16:58:28.000000000 +0000 @@ -9,9 +9,9 @@ libtest-pod-coverage-perl, libtest-pod-perl, perl -Standards-Version: 3.9.6 +Standards-Version: 3.9.7 Vcs-Browser: https://anonscm.debian.org/cgit/pkg-perl/packages/libpgobject-perl.git -Vcs-Git: git://anonscm.debian.org/pkg-perl/packages/libpgobject-perl.git +Vcs-Git: https://anonscm.debian.org/git/pkg-perl/packages/libpgobject-perl.git Homepage: http://metacpan.org/release/PGObject/ Testsuite: autopkgtest-pkg-perl diff -Nru libpgobject-perl-1.402.8/debian/patches/fix-spelling-error-in-manpage.patch libpgobject-perl-1.402.9/debian/patches/fix-spelling-error-in-manpage.patch --- libpgobject-perl-1.402.8/debian/patches/fix-spelling-error-in-manpage.patch 1970-01-01 00:00:00.000000000 +0000 +++ libpgobject-perl-1.402.9/debian/patches/fix-spelling-error-in-manpage.patch 2016-02-15 16:58:28.000000000 +0000 @@ -0,0 +1,17 @@ +Description: Fix spelling error in manpage +Author: Lucas Kanashiro +Last-Updated: 2016-02-14 +Forwarded: https://rt.cpan.org/Ticket/Display.html?id=112027 +Bug: https://rt.cpan.org/Ticket/Display.html?id=112027 + +--- a/lib/PGObject.pm ++++ b/lib/PGObject.pm +@@ -660,7 +660,7 @@ L + This code has been loosely based on code written for the LedgerSMB open source + accounting and ERP project. While that software uses the GNU GPL v2 or later, + this is my own reimplementation, based on my original contributions to that +-project alone, and it differs in signficant ways. This being said, without ++project alone, and it differs in significant ways. This being said, without + LedgerSMB, this module wouldn't exist, and without the lessons learned there, + and the great people who have helped make this possible, this framework would + not be half of what it is today. diff -Nru libpgobject-perl-1.402.8/debian/patches/series libpgobject-perl-1.402.9/debian/patches/series --- libpgobject-perl-1.402.8/debian/patches/series 1970-01-01 00:00:00.000000000 +0000 +++ libpgobject-perl-1.402.9/debian/patches/series 2016-02-15 16:58:28.000000000 +0000 @@ -0,0 +1 @@ +fix-spelling-error-in-manpage.patch diff -Nru libpgobject-perl-1.402.8/lib/PGObject.pm libpgobject-perl-1.402.9/lib/PGObject.pm --- libpgobject-perl-1.402.8/lib/PGObject.pm 2015-10-10 18:17:44.000000000 +0000 +++ libpgobject-perl-1.402.9/lib/PGObject.pm 2016-02-13 13:23:27.000000000 +0000 @@ -12,11 +12,11 @@ =head1 VERSION -Version 1.402.8 +Version 1.402.9 =cut -our $VERSION = '1.402.8'; +our $VERSION = '1.402.9'; my %typeregistry = ( default => {}, @@ -107,7 +107,7 @@ =cut sub clear_info_cache { - local $@; + local ($@); eval { Memoize::flush_cache('function_info') }; } @@ -299,9 +299,11 @@ my @qargs = map { my $arg = $_; + local ($@); $arg = $arg->to_db if eval {$arg->can('to_db')}; $arg = $arg->pgobject_to_db if eval {$arg->can('pgobject_to_db')}; - ref ($arg =~ /HASH/) ? $arg->{value} : $arg + no warnings 'uninitialized'; + ref($arg) =~ /HASH/ ? $arg->{value} : $arg; } @{$args{args}}; my $argstr = join ', ', map { @@ -343,6 +345,7 @@ # This is used to support arrays of db-aware types. Long-run # I think we should merge bytea support into this framework. --CT if (ref($carg) =~ /ARRAY/){ + local ($@); if (eval{$carg->[0]->can('to_db')}){ for my $ref(@$carg){ $ref = $ref->to_db; @@ -391,7 +394,7 @@ $registry = $typeregistry{$registry} unless ref $registry; # Array handling as we'd get this usually from DBD::Pg or equivalent - if (ref $val =~ /ARRAY/){ + if (ref $val and ref($val) =~ /ARRAY/){ # strangely, DBD::Pg returns, as of 2.x, the types of array types # as prefixed with an underscore. So we have to remove this. --CT $type =~ s/^\_//; diff -Nru libpgobject-perl-1.402.8/META.json libpgobject-perl-1.402.9/META.json --- libpgobject-perl-1.402.8/META.json 2015-10-10 18:17:53.000000000 +0000 +++ libpgobject-perl-1.402.9/META.json 2016-02-13 13:24:13.000000000 +0000 @@ -47,5 +47,5 @@ "web" : "https://github.com/ledgersmb/PGObject" } }, - "version" : "v1.402.8" + "version" : "v1.402.9" } diff -Nru libpgobject-perl-1.402.8/META.yml libpgobject-perl-1.402.9/META.yml --- libpgobject-perl-1.402.8/META.yml 2015-10-10 18:17:53.000000000 +0000 +++ libpgobject-perl-1.402.9/META.yml 2016-02-13 13:24:13.000000000 +0000 @@ -24,4 +24,4 @@ Test::More: '0' resources: repository: https://github.com/ledgersmb/PGObject.git -version: v1.402.8 +version: v1.402.9 diff -Nru libpgobject-perl-1.402.8/MYMETA.json libpgobject-perl-1.402.9/MYMETA.json --- libpgobject-perl-1.402.8/MYMETA.json 2015-10-10 18:17:49.000000000 +0000 +++ libpgobject-perl-1.402.9/MYMETA.json 2016-02-13 13:23:56.000000000 +0000 @@ -47,5 +47,5 @@ "web" : "https://github.com/ledgersmb/PGObject" } }, - "version" : "v1.402.8" + "version" : "v1.402.9" } diff -Nru libpgobject-perl-1.402.8/t/04-registered_types.t libpgobject-perl-1.402.9/t/04-registered_types.t --- libpgobject-perl-1.402.8/t/04-registered_types.t 2015-10-10 15:39:01.000000000 +0000 +++ libpgobject-perl-1.402.9/t/04-registered_types.t 2016-01-09 16:41:14.000000000 +0000 @@ -12,8 +12,6 @@ pg_type => 'int4', perl_class => 'test2', registry => 'test1'), 1, "Basic type registration"); - - SKIP: { skip 'No database connection', 9 unless $ENV{DB_TESTING};