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
50
51
52
|
Description: remove references to obsolete krb5_{get,free}_krbhst
These routines were internal and are removed from krb5.
They aren't used anyway and only cause module load failures when
PERL_DL_NONLAZY is set.
Thanks to Sergio Gelato
https://codesearch.debian.net/search?q=krb5_get_krbhst shows no relevant usage
Bug-Debian: https://bugs.debian.org/830844
Bug: https://rt.cpan.org/Ticket/Display.html?id=116071
--- a/Krb5.xs
+++ b/Krb5.xs
@@ -47,14 +47,6 @@ static krb5_error_code err;
static krb5_keytab_entry keytab_entry_init;
/*
- * These are internal Kerberos library functions that aren't prototyped and
- * that we probably shouldn't be calling. Prototype them with the arguments
- * we expect and leave them for now pending an API cleanup.
- */
-krb5_error_code krb5_free_krbhst(krb5_context, char * const *);
-krb5_error_code krb5_get_krbhst(krb5_context, const krb5_data *, char ***);
-
-/*
* The following three routines implement a "safehouse" for nested Kerberos
* data structures which shouldn't be freed before their parent data
* structures are freed. Without this, "Bad free() ignored" errors as well
@@ -181,26 +173,6 @@ krb5_get_host_realm(host)
}
krb5_free_host_realm(context,realmlist);
-void
-krb5_get_krbhst(realm)
- char *realm
-
- PREINIT:
- krb5_data realm_data;
- char **hostlist;
- int i;
-
- PPCODE:
- realm_data.data = realm;
- realm_data.length = strlen(realm);
- err = krb5_get_krbhst(context,&realm_data,&hostlist);
- if (err || !hostlist) XSRETURN_UNDEF;
- for (i = 0; hostlist[i]; i++) {
- XPUSHs(sv_2mortal(newSVpv(hostlist[i],
- strlen(hostlist[i]))));
- }
- krb5_free_krbhst(context,hostlist);
-
Authen::Krb5::Principal
krb5_build_principal_ext(p)
Authen::Krb5::Principal p
|
