[libdbd-pg-perl] 03/35: Squash small leak with get_info(18)

[Christoph Berg]

This is an automated email from the git hooks/post-receive script.

myon pushed a commit to branch master
in repository libdbd-pg-perl.

commit 460467fa386e2d609d4b76ac0397cb04f96946ee
Author: Greg Sabino Mullane <greg at endpoint.com>
Date:   Sat Sep 9 14:02:56 2017 -0400

    Squash small leak with get_info(18)
---
 Pg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Pg.pm b/Pg.pm
index eeb76a6..d77d176 100644
--- a/Pg.pm
+++ b/Pg.pm
@@ -1535,7 +1535,7 @@ use 5.008001;
         }
         elsif ($ans eq 'ODBCVERSION') {
             my $version = $dbh->{private_dbdpg}{version};
-            return '00.00.0000' unless $version =~ /^(\d\d?)(\d\d)(\d\d)$/o;
+            return '00.00.0000' unless $version =~ /^(\d\d?)(\d\d)(\d\d)$/;
             return sprintf '%02d.%02d.%.2d00', $1,$2,$3;
         }
         elsif ($ans eq 'DBDVERSION') {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdbd-pg-perl.git