… | |
… | |
25 | ($var) = $arg; |
25 | ($var) = $arg; |
26 | if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1)) |
26 | if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1)) |
27 | croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") |
27 | croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") |
28 | |
28 | |
29 | BDB_FILENAME |
29 | BDB_FILENAME |
30 | ($var) = !SvOK ($arg) |
30 | ($var) = get_bdb_filename ($arg); |
31 | ? 0 |
|
|
32 | : |
|
|
33 | #if WIN32 |
|
|
34 | SvPVutf8_nolen ($arg) |
|
|
35 | #else |
|
|
36 | SvPVbyte_nolen ($arg) |
|
|
37 | #endif |
|
|
38 | ; |
|
|
39 | |
31 | |
40 | DB_SEQ |
32 | DB_SEQ |
41 | $var = sizeof (IV) > 4 ? SvIV ($arg) : SvNV ($arg); |
33 | $var = sizeof (IV) > 4 ? SvIV ($arg) : SvNV ($arg); |
42 | |
34 | |
43 | DB_ENV |
35 | DB_ENV |