inncheck warning

[Remco Rijnders]

Hi all,

Running inncheck today, I got the following warning:

[root at ketelbinkie inn]# inncheck
defined(@array) is deprecated at /usr/bin/inncheck line 1033.
  (Maybe you should just omit the defined()?)

This is with perl 5.18.

The attached patch will hopefully make this warning go away. Please note 
that I have only tested it in as far as that it makes the warning go away.

Remmy
-------------- next part --------------
Index: scripts/inncheck.in
===================================================================
--- scripts/inncheck.in	(revision 9489)
+++ scripts/inncheck.in	(working copy)
@@ -1030,7 +1030,7 @@
     die "Internal error, undefined name in perm from ", (caller(0))[2], "\n"
 	if !defined $f;
     die "Internal error, undefined mode in perm from ", (caller(0))[2], "\n"
-	if !defined @$m;
+	if !@$m;
 
     if ( ! -e $f ) {
 	eprint "$pfx$f:0: missing\n";
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 836 bytes
Desc: not available
URL: <https://lists.isc.org/pipermail/inn-workers/attachments/20130621/6ed8c92a/attachment.bin>