|
|
1 | DB_ENV * DB_ENV |
|
|
2 | DB_TXN * DB_TXN |
|
|
3 | DB * DB |
1 | SV8 * T_SV8 |
4 | SV8 * T_SV8 |
2 | |
5 | |
3 | INPUT |
6 | INPUT |
4 | |
7 | |
5 | T_SV8 |
8 | T_SV8 |
6 | ($var) = $arg; |
9 | ($var) = $arg; |
7 | if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1)) |
10 | if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1)) |
8 | croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") |
11 | croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") |
|
|
12 | |
|
|
13 | DB_ENV |
|
|
14 | SvPTR ($var, $arg, DB_ENV *, BDB::Env); |
|
|
15 | |
|
|
16 | DB_TXN |
|
|
17 | SvPTR ($var, $arg, DB_TXN *, BDB::Txn); |
|
|
18 | |
|
|
19 | DB |
|
|
20 | SvPTR ($var, $arg, DB *, BDB::Db); |
|
|
21 | |
|
|
22 | OUTPUT |
|
|
23 | |
|
|
24 | DB_ENV |
|
|
25 | sv_setref_pv ($arg, "BDB::Env", (void *)$var); |
|
|
26 | |
|
|
27 | DB_TXN |
|
|
28 | sv_setref_pv ($arg, "BDB::Txn", (void *)$var); |
|
|
29 | |
|
|
30 | DB |
|
|
31 | sv_setref_pv ($arg, "BDB::Db", (void *)$var); |