Package: release.debian.org
Severity: normal
Tags: jessie
User: release.debian....@packages.debian.org
Usertags: pu
changelog | 9 +++++
patches/obsolete-krb_get,free_krbhst.patch | 52 +++++++++++++++++++++++++++++
patches/series | 1
3 files changed, 62 insertions(+)
diff -Nru libauthen-krb5-perl-1.9/debian/changelog
libauthen-krb5-perl-1.9/debian/changelog
--- libauthen-krb5-perl-1.9/debian/changelog 2014-03-15 23:43:56.000000000
+0200
+++ libauthen-krb5-perl-1.9/debian/changelog 2017-05-25 19:01:10.000000000
+0300
@@ -1,3 +1,12 @@
+libauthen-krb5-perl (1.9-4+deb8u1) jessie; urgency=medium
+
+ * Non-maintainer upload.
+ * Add patch from Damyan Ivanov removing references to
+ obsolete krb5_{get,free}_krbhst. Thanks to Sergio Gelato.
+ (Closes: #830844)
+
+ -- Adrian Bunk <b...@debian.org> Thu, 25 May 2017 18:59:36 +0300
+
libauthen-krb5-perl (1.9-4) unstable; urgency=low
* Team upload
diff -Nru
libauthen-krb5-perl-1.9/debian/patches/obsolete-krb_get,free_krbhst.patch
libauthen-krb5-perl-1.9/debian/patches/obsolete-krb_get,free_krbhst.patch
--- libauthen-krb5-perl-1.9/debian/patches/obsolete-krb_get,free_krbhst.patch
1970-01-01 02:00:00.000000000 +0200
+++ libauthen-krb5-perl-1.9/debian/patches/obsolete-krb_get,free_krbhst.patch
2017-05-25 18:59:07.000000000 +0300
@@ -0,0 +1,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
diff -Nru libauthen-krb5-perl-1.9/debian/patches/series
libauthen-krb5-perl-1.9/debian/patches/series
--- libauthen-krb5-perl-1.9/debian/patches/series 2011-12-13
23:25:48.000000000 +0200
+++ libauthen-krb5-perl-1.9/debian/patches/series 2017-05-25
18:59:03.000000000 +0300
@@ -1,3 +1,4 @@
better-compiler-flags
fix_pod
fix-init_context.patch
+obsolete-krb_get,free_krbhst.patch
