www/w3m/patches/patch-scripts_w3mman_w3mman2html.cgi.in


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

$NetBSD: patch-scripts_w3mman_w3mman2html.cgi.in,v 1.1 2015/08/24 13:42:28 leot Exp $

Use of defined() on aggregates (arrays and hashes) is deprecated from Perl 5.22.

--- scripts/w3mman/w3mman2html.cgi.in.orig	2011-01-04 09:22:28.000000000 +0000
+++ scripts/w3mman/w3mman2html.cgi.in
@@ -220,7 +220,7 @@ sub is_command {
   local($p);
 
   (! -d && -x) || return 0;
-  if (! defined(%PATH)) {
+  if (! %PATH) {
     for $p (split(":", $ENV{'PATH'})) {
       $p =~ s@/+$@@;
       $PATH{$p} = 1;