From: Peter Rabbitson Date: Wed, 13 Jul 2016 15:51:00 +0000 (+0200) Subject: Silence inactionable warning (mainly on travis) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bced0adbd0c36588cbe2665bbba353a7445f0b79;p=dbsrgits%2FDBIx-Class.git Silence inactionable warning (mainly on travis) --- diff --git a/t/lib/DBICTest/Util/LeakTracer.pm b/t/lib/DBICTest/Util/LeakTracer.pm index b36843e..49621eb 100644 --- a/t/lib/DBICTest/Util/LeakTracer.pm +++ b/t/lib/DBICTest/Util/LeakTracer.pm @@ -161,7 +161,16 @@ sub visit_refs { } values %{ scalar PadWalker::closed_over($r) } ] }); # scalar due to RT#92269 } 1; - } or warn "Could not descend into @{[ refdesc $r ]}: $@\n"; + } or ( + # this is some bizarre old DBI autosplit thing, no point mentioning it + $@ !~ m{ ^Can't \s locate \s (?: + auto/DBI/FIRSTKEY.al + | + \Qobject method "FIRSTKEY" via package "DBI"\E + )}x + and + warn "Could not descend into @{[ refdesc $r ]}: $@\n" + ); } $visited_cnt; }