1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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) ;
|
