diff -bu Clone-0.38-20/t/dump.pl~ Clone-0.38-20/t/dump.pl
--- Clone-0.38-20/t/dump.pl~	2014-05-15 23:43:24.000000000 +0200
+++ Clone-0.38-20/t/dump.pl	2017-02-01 10:53:34.000000000 +0100
@@ -27,7 +27,7 @@
 );
 
 # Given an object, dump its transitive data closure
-sub main'dump {
+sub main::dump {
 	my ($object) = @_;
 	die "Not a reference!" unless ref($object);
 	local %dumped;