Files
perl-Data-Locations/defined-hash.patch
2020-03-14 08:16:33 +00:00

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'})