<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">diff -bu Data-Dump-1.23-1/t/dump.t~ Data-Dump-1.23-1/t/dump.t
--- Data-Dump-1.23-1/t/dump.t~	2013-04-11 21:51:45.000000000 +0200
+++ Data-Dump-1.23-1/t/dump.t	2019-07-04 18:05:44.000000000 +0200
@@ -1,7 +1,7 @@
 #!perl -w
 
 use strict;
-use Test qw(plan ok);
+use Test qw(plan ok skip);
 plan tests =&gt; 34;
 
 use Data::Dump qw(dump);
@@ -64,4 +64,5 @@
 # stranger stuff
 ok(dump({ a =&gt; \&amp;Data::Dump::dump, aa =&gt; do {require Symbol; Symbol::gensym()}}),
    "do {\n  require Symbol;\n  { a =&gt; sub { ... }, aa =&gt; Symbol::gensym() };\n}");
+BEGIN { strict-&gt;unimport('names') if $^V =~ /c$/ &amp;&amp; $] &gt;= 5.027; }
 ok(dump(bless{}, "foo=bar"), 'bless({}, "foo=bar")');
</pre></body></html>