--- Data-Locations-5.5.orig/t/01________new.t	2009-10-07 23:45:04.000000000 +0200
+++ Data-Locations-5.5/t/01________new.t	2020-02-21 15:52:06.615623067 +0100
@@ -84,7 +84,7 @@
     if (ref($loc) eq 'Data::Locations')
     {print "ok $n\n";} else {print "not ok $n\n";}
     $n++;
-    if (defined %{*{$loc}})
+    if (%{*{$loc}})
     {print "ok $n\n";} else {print "not ok $n\n";}
     $n++;
     if (exists ${*{$loc}}{'name'})