File: defined_hash_array.patch

package info (click to toggle)
libace-perl 1.92-13
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,120 kB
  • sloc: perl: 7,763; ansic: 7,420; makefile: 81
file content (19 lines) | stat: -rw-r--r-- 806 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Description: fix "Can't use 'defined(%hash)'" and "Can't use 'defined(@array)'" warnings
Origin: vendor
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2017-11-24
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=169601

--- a/Ace/Browser/SiteDefs.pm
+++ b/Ace/Browser/SiteDefs.pm
@@ -221,8 +221,8 @@
   foreach (keys %{"${namespace}::"}) {
     *symbol = ${"${namespace}::"}{$_};
     $data{ucfirst(lc $_)} = $symbol if defined($symbol);
-    $data{ucfirst(lc $_)} = \%symbol if defined(%symbol);
-    $data{ucfirst(lc $_)} = \@symbol if defined(@symbol);
+    $data{ucfirst(lc $_)} = \%symbol if %symbol;
+    $data{ucfirst(lc $_)} = \@symbol if @symbol;
     $data{ucfirst(lc $_)} = \&symbol if defined(&symbol);
     undef *symbol unless defined &symbol;  # conserve  some memory
   }