File: defined_hash_array.patch

package info (click to toggle)
libace-perl 1.92-8
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,960 kB
  • sloc: perl: 7,763; ansic: 7,420; makefile: 74
file content (18 lines) | stat: -rw-r--r-- 741 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
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

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