X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Finflate%2Fhri.t;h=b9ca3d8c66cd1f8a8e33d4d2b88221446e226b49;hb=f073420b2c87814662fc34fd544e29bf0883f26c;hp=eece6df89a369d1afe981d7bceabe241ec57df44;hpb=0a03f5395cebe7227c53c32e13b5acb743a765db;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/inflate/hri.t b/t/inflate/hri.t
index eece6df..b9ca3d8 100644
--- 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;