"exists $ARGV[0]" does not work with perl < 5.6.0. use "defined $ARGV…

…[0]".
munin-monitoring · Aug 6, 2005 · 1c3bd64 · 1c3bd64
1 parent 1c58de6
commit 1c3bd64
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/node/node.d.sunos/netstat.in b/node/node.d.sunos/netstat.in
@@ -32,10 +32,10 @@
 
 use strict;
 
-if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {
+if (defined $ARGV[0] and $ARGV[0] eq "autoconf") {
   print "yes\n";
   exit;
-} elsif (exists $ARGV[0] and $ARGV[0] eq "config") {
+} elsif (defined $ARGV[0] and $ARGV[0] eq "config") {
   print "graph_title Netstat\n";
   print "graph_args -l 0 --base 1000\n";
   print "graph_vlabel active connections per \${graph_period}\n";