@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.4 2015/06/24 19:49:56 joerg Exp $
+$NetBSD: distinfo,v 1.5 2015/06/25 07:36:56 joerg Exp $
 
 SHA1 (fml-4.0-stable-20040215.tar.gz) = b7f958deacc50a0173928b7c43df52b5869d9491
 RMD160 (fml-4.0-stable-20040215.tar.gz) = 40eb43d2631a5e6d6769b8cfdf35e4a980ff0391
@@ -9,5 +9,5 @@
 SHA1 (patch-ad) = 17e5d1d97e5a085b8b5da67e00730ce92b959fbf
 SHA1 (patch-ae) = 467a8bacfb0a6d41ceb1d8f52fc4bfc0ae2fc565
 SHA1 (patch-af) = 9e7fa7c70b4f3353a5c33d0ded2eeae86d9a5c65
-SHA1 (patch-ag) = 5a7a8a3d32e1a290e29cefa67aec584c21206d0c
+SHA1 (patch-ag) = 7b4c0be6de3b7fba18280779ede5c3b217598b32
 SHA1 (patch-src_libkernsubr.pl) = c9d4e57b12fddb3045f47b27926c67cfe32c0d44

@@ -1,4 +1,4 @@
-$NetBSD: patch-ag,v 1.1.1.1 2010/12/23 16:55:02 taca Exp $
+$NetBSD: patch-ag,v 1.2 2015/06/25 07:36:56 joerg Exp $
 
 Stop perl deprecated warnings.
 
@@ -17,6 +17,15 @@
  		print STDERR "GO \%\t$key\n";
  	    }
  	    elsif (defined &entry) {
+@@ -703,7 +703,7 @@ sub main'reverse
+ 	    next;
+ 	}
+ 
+-	if (defined @entry) {
++	if (@entry) {
+ 	    undef $num;
+ 	    $OUT'LOCAL .=  "\@$key = (";
+ 	    foreach (@entry) {
 @@ -718,7 +718,7 @@ sub main'reverse
  	# Is there an associative array that isn't the one
  	# we're currently iterating through?