1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
--- perl/agent/agent.xs.old Fri May 26 15:16:45 2006
+++ perl/agent/agent.xs Mon Mar 5 13:42:35 2007
@@ -18,9 +18,9 @@
} handler_cb_data;
typedef struct netsnmp_oid_s {
- unsigned int *name;
- unsigned int len;
- unsigned int namebuf[ MAX_OID_LEN ];
+ oid *name;
+ size_t len;
+ oid namebuf[ MAX_OID_LEN ];
} netsnmp_oid;
static int have_done_agent = 0;
@@ -569,7 +569,7 @@
arg = newSVrv(rarg, "netsnmp_oidPtr");
sv_setiv(arg, (IV) o);
- XPUSHs(rarg);
+ XPUSHs(sv_2mortal(rarg));
PUTBACK;
i = perl_call_pv("NetSNMP::OID::newwithptr", G_SCALAR);
@@ -608,7 +608,7 @@
arg = newSVrv(rarg, "netsnmp_oidPtr");
sv_setiv(arg, (IV) o);
- XPUSHs(rarg);
+ XPUSHs(sv_2mortal(rarg));
PUTBACK;
i = perl_call_pv("NetSNMP::OID::newwithptr", G_SCALAR);
@@ -997,11 +997,13 @@
rarg = newSViv(0);
arg = newSVrv(rarg, "NetSNMP::agent::netsnmp_request_infoPtr");
sv_setiv(arg, (IV) request);
- ST(0) = rarg;
+ RETVAL = rarg;
} else {
- ST(0) = &sv_undef;
+ RETVAL = &sv_undef;
}
}
+ OUTPUT:
+ RETVAL
MODULE = NetSNMP::agent PACKAGE = NetSNMP::agent::netsnmp_agent_request_info PREFIX = narqi_
|
