[libdbd-pg-perl] 09/35: Account for more versioon names e.g. rc, alpha

[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 e01ea33c7900ddc181fe2785703da420fab5458f
Author: Erik Rijkers <er at xs4all.nl>
Date:   Tue Sep 19 15:57:26 2017 -0400

    Account for more versioon names e.g. rc, alpha
---
 t/dbdpg_test_setup.pl              | 2 +-
 t/lib/App/Info/RDBMS/PostgreSQL.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/dbdpg_test_setup.pl b/t/dbdpg_test_setup.pl
index 8eaab40..a4cecc4 100644
--- a/t/dbdpg_test_setup.pl
+++ b/t/dbdpg_test_setup.pl
@@ -318,7 +318,7 @@ version: $version
 		elsif ($info =~ /(\d+\.\d+)/) {
 			$version = $1;
 		}
-		elsif ($info =~ /(\d+)(?:devel|beta)/) { ## Can be 10devel
+		elsif ($info =~ /(\d+)(?:devel|beta|rc|alpha)/) { ## Can be 10devel
 			$version = $1;
 		}
 		else {
diff --git a/t/lib/App/Info/RDBMS/PostgreSQL.pm b/t/lib/App/Info/RDBMS/PostgreSQL.pm
index 4ba3d85..6c5f4e8 100644
--- a/t/lib/App/Info/RDBMS/PostgreSQL.pm
+++ b/t/lib/App/Info/RDBMS/PostgreSQL.pm
@@ -278,7 +278,7 @@ my $get_version = sub {
             @{$self}{qw(version major minor patch)} =
                 ($version, $1, 0, $2); # from v10 onwards, $2 will be patch level
         }
-        elsif ($version =~ /^(\d{2,})(devel|beta)/) {
+        elsif ($version =~ /^(\d{2,})(devel|beta|rc|alpha)/) {
             @{$self}{qw(version major minor patch)} =
                 ($version, $1, 0, 0);
         }

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