Author: turnstep
Date: Fri Feb 15 09:31:51 2008
New Revision: 10736
Modified:
DBD-Pg/trunk/Changes
DBD-Pg/trunk/Makefile.PL
DBD-Pg/trunk/Pg.pm
DBD-Pg/trunk/t/00basic.t
Log:
Per bug 33206, use version.pm to indicate our extended version, and made a test
for same.
Modified: DBD-Pg/trunk/Changes
==============================================================================
--- DBD-Pg/trunk/Changes (original)
+++ DBD-Pg/trunk/Changes Fri Feb 15 09:31:51 2008
@@ -2,6 +2,7 @@
2.0.1
+ - Use version.pm [CPAN bug #33206] [GSM]
- Remove '//' style comments to make strict ANSI compilers happy.
(Trevor Inman) [CPAN bug #33089]
Modified: DBD-Pg/trunk/Makefile.PL
==============================================================================
--- DBD-Pg/trunk/Makefile.PL (original)
+++ DBD-Pg/trunk/Makefile.PL Fri Feb 15 09:31:51 2008
@@ -6,7 +6,7 @@
use warnings;
use 5.006001;
-my $VERSION = '2.0.1';
+use version; my $VERSION = qv("2.0.1");
my $lib;
BEGIN {
Modified: DBD-Pg/trunk/Pg.pm
==============================================================================
--- DBD-Pg/trunk/Pg.pm (original)
+++ DBD-Pg/trunk/Pg.pm Fri Feb 15 09:31:51 2008
@@ -17,7 +17,7 @@
{
package DBD::Pg;
- our $VERSION = '2.0.1';;
+ use version; our $VERSION = qv("2.0.1");
use DBI ();
use DynaLoader ();
Modified: DBD-Pg/trunk/t/00basic.t
==============================================================================
--- DBD-Pg/trunk/t/00basic.t (original)
+++ DBD-Pg/trunk/t/00basic.t Fri Feb 15 09:31:51 2008
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More tests => 4;
select(($|=1,select(STDERR),$|=1)[1]);
## For quick testing, put new tests as 000xxx.t and set this:
@@ -19,3 +19,13 @@
}
use DBD::Pg;
like( $DBD::Pg::VERSION, qr/^[\d\._]+$/, qq{Found DBD::Pg::VERSION as
"$DBD::Pg::VERSION"});
+
+SKIP: {
+ eval { require Test::Warn; };
+ $@ and skip 'Need Test::Warn to test vesion warning', 1;
+
+ my $t=q{Version comparison does not throw a warning};
+
+ Test::Warn::warnings_are (sub {$DBD::Pg::VERSION <= "1.49"}, [], $t );
+}
+
