Update upstream source from tag 'upstream/1.55'

Update to upstream version '1.55'
with Debian dir 490db81f1b332e4ca24689c4f33a7b4388b8f45e

6 files changed, 22 insertions, 13 deletions

diff --git a/Changes b/Changes
index 800c42c..1bf64be 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension DBD::Mock.
 
+1.55 2019-12-30T14:20:00Z
+    - Fixed bug rt131264 t/033_table_info.t fails (with older DBI)
+
 1.54 2019-12-23T12:44:22Z
     - Added Bernhard Graf's 'Feature: one shot failure' merge request.
     - Fixed description of the failure attribute of mock_add_resultset. It
diff --git a/META.json b/META.json
index f8216e4..c817a3d 100644
--- a/META.json
+++ b/META.json
@@ -61,7 +61,7 @@
    "provides" : {
       "DBD::Mock" : {
          "file" : "lib/DBD/Mock.pm",
-         "version" : "1.54"
+         "version" : "1.55"
       },
       "DBD::Mock::Pool" : {
          "file" : "lib/DBD/Mock/Pool.pm"
@@ -96,7 +96,7 @@
          "web" : "https://gitlab.com/scrapheap/DBD-Mock"
       }
    },
-   "version" : "1.54",
+   "version" : "1.55",
    "x_authority" : "cpan:JLCOOPER",
    "x_contributors" : [
       "Bernhard Graf <GRAF@cpan.org>",
diff --git a/META.yml b/META.yml
index 43d9e62..7313e00 100644
--- a/META.yml
+++ b/META.yml
@@ -31,7 +31,7 @@ no_index:
 provides:
   DBD::Mock:
     file: lib/DBD/Mock.pm
-    version: '1.54'
+    version: '1.55'
   DBD::Mock::Pool:
     file: lib/DBD/Mock/Pool.pm
   DBD::Mock::Pool::db:
@@ -55,7 +55,7 @@ requires:
 resources:
   homepage: https://gitlab.com/scrapheap/DBD-Mock
   repository: git://gitlab.com/scrapheap/DBD-Mock.git
-version: '1.54'
+version: '1.55'
 x_authority: cpan:JLCOOPER
 x_contributors:
   - 'Bernhard Graf <GRAF@cpan.org>'
diff --git a/README.md b/README.md
index e74771d..15acad7 100644
--- a/README.md
+++ b/README.md
@@ -1081,9 +1081,11 @@ great caution (if at all).
 
 - table\_info
 
-    This feature adds support for DBI's `table_info` method. To mock the table
-    info for a search of the `testSchema` database schema you would use the
-    following:
+    This feature adds support for DBI's `table_info` method (
+    _Note this functionality is unstable when used with DBI version 1.634 and below_).
+
+    To mock the table info for a search of the `testSchema` database schema you
+    would use the following:
 
         $dbh->{mock_add_table_info} = {
             cataloge   => undef,
diff --git a/lib/DBD/Mock.pm b/lib/DBD/Mock.pm
index ffcefea..3402c1e 100644
--- a/lib/DBD/Mock.pm
+++ b/lib/DBD/Mock.pm
@@ -30,7 +30,7 @@ sub import {
       if ( @_ && lc( $_[0] ) eq "pool" );
 }
 
-our $VERSION = '1.54';
+our $VERSION = '1.55';
 
 our $drh    = undef;    # will hold driver handle
 our $err    = 0;        # will hold any error codes
@@ -1276,9 +1276,11 @@ C<DBD::Mock::dr::add_connect_callbacks> function
 
 =item table_info
 
-This feature adds support for DBI's C<table_info> method. To mock the table
-info for a search of the C<testSchema> database schema you would use the
-following:
+This feature adds support for DBI's C<table_info> method (
+I<Note this functionality is unstable when used with DBI version 1.634 and below>).
+
+To mock the table info for a search of the C<testSchema> database schema you
+would use the following:
 
     $dbh->{mock_add_table_info} = {
         cataloge   => undef,
diff --git a/t/033_table_info.t b/t/033_table_info.t
index 190809d..b20abca 100755
--- a/t/033_table_info.t
+++ b/t/033_table_info.t
@@ -5,8 +5,10 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok('DBI');
+use DBI;
+
+if ($DBI::VERSION < 1.635) {
+    plan skip_all => "Functionality requires DBI version 1.64 or higher";
 }
 
 my $dbh = DBI->connect( 'dbi:Mock:', '', '' );