blob: ac87358409314b9394469dcd9b3d704c665fdc42 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
$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 #########################
|