Description: "defined(%hash)" is an error in Perl 5.22
Origin: vendor
Bug-Debian: https://bugs.debian.org/789157
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2015-06-18
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=105335
Bug: https://rt.cpan.org/Ticket/Display.html?id=105335

--- a/Recordset.pm
+++ b/Recordset.pm
@@ -652,7 +652,7 @@
         ${$objname} -> Disconnect () ;
         }
 
-    if (defined (%{$objname}))
+    if (%{$objname})
         {
         my $obj = tied (%{$objname}) ;
         $obj -> {'*Recordset'} = undef if ($obj) ;