$NetBSD: patch-ac,v 1.1 2001/01/30 22:03:40 wrstuden Exp $

--- t/mib.t.orig	Tue Jan 30 05:15:44 2001
+++ t/mib.t	Tue Jan 30 05:16:19 2001
@@ -147,13 +147,13 @@
 ######################  15   #########################
 $res = $SNMP::MIB{atNetAddress}{nextNode};
 #print("res is --> $res\n");
-ok($res =~ /^HASH/);
+ok(ref($res) eq HASH);
 #print("\n");
 
 ########################  16   #########################
 $res = $SNMP::MIB{sysDescr}{children};
 #print("res is --> $res\n");
-ok($res =~ /^ARRAY/);
+ok(ref($res) eq ARRAY);
 #print("\n");
 ####################  17   #########################
  
