Skip annoyingly failing test on broken base.pm

Was broken in 5.19.7, fixed in 5.19.8

diff --git a/t/inflate/hri.t b/t/inflate/hri.t
index eece6df..b9ca3d8 100644 (file)
--- a/t/inflate/hri.t
+++ b/t/inflate/hri.t
@@ -2,6 +2,14 @@ use strict;
 use warnings;
 
 use Test::More;
+
+use DBIx::Class::_Util 'modver_gt_or_eq';
+use base();
+BEGIN {
+  plan skip_all => 'base.pm 2.20 (only present in perl 5.19.7) is known to break this test'
+    if modver_gt_or_eq(base => '2.19_01') and ! modver_gt_or_eq(base => '2.21');
+}
+
 use Test::Exception;
 use lib qw(t/lib);
 use DBICTest;