12 lines
430 B
Diff
12 lines
430 B
Diff
|
--- 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'})
|