r1550 - in packages/libauthen-krb5-perl/trunk: . debian

[Russ Allbery]

Author: rra-guest
Date: 2005-11-29 03:16:00 +0000 (Tue, 29 Nov 2005)
New Revision: 1550

Modified:
   packages/libauthen-krb5-perl/trunk/Krb5.pm
   packages/libauthen-krb5-perl/trunk/Krb5.xs
   packages/libauthen-krb5-perl/trunk/debian/changelog
   packages/libauthen-krb5-perl/trunk/sample_client
   packages/libauthen-krb5-perl/trunk/sample_server
   packages/libauthen-krb5-perl/trunk/simple_client
   packages/libauthen-krb5-perl/trunk/simple_server
Log:
* Make init_ets a no-op, since krb5_init_ets was a private symbol,
  calling it has always been unnecessary, and it is no longer exported
  by the MIT Kerberos libraries as of 1.4.  Update the documentation and
  example scripts accordingly.

Modified: packages/libauthen-krb5-perl/trunk/Krb5.pm
===================================================================
--- packages/libauthen-krb5-perl/trunk/Krb5.pm	2005-11-19 17:12:44 UTC (rev 1549)
+++ packages/libauthen-krb5-perl/trunk/Krb5.pm	2005-11-29 03:16:00 UTC (rev 1550)
@@ -95,7 +95,6 @@
 use Authen::Krb5;
 
 Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
 
 =head1 DESCRIPTION
 
@@ -117,14 +116,9 @@
 =item init_context()
 
 Initializes a context for the application.  Returns a Authen::Krb5::Context
-object, or undef if there was an error.  Should be called along with init_ets
-at the beginning of a script.
+object, or undef if there was an error.  Should be called at the beginning of
+a script.
 
-=item init_ets()
-
-Initializes the Kerberos error tables.  Should be called along with
-init_context at the beginning of a script.
-
 =item get_default_realm()
 
 Returns the default realm of your host.

Modified: packages/libauthen-krb5-perl/trunk/Krb5.xs
===================================================================
--- packages/libauthen-krb5-perl/trunk/Krb5.xs	2005-11-19 17:12:44 UTC (rev 1549)
+++ packages/libauthen-krb5-perl/trunk/Krb5.xs	2005-11-29 03:16:00 UTC (rev 1550)
@@ -118,11 +118,12 @@
 	if (!context) croak("Authen::Krb5 not yet initialized");
 	krb5_free_context(context);
 
+/* This is no longer needed or supported by MIT Kerberos, but it was
+   documented as necessary, so retain it in the Perl API as a stub. */
 void
 krb5_init_ets()
 
 	CODE:
-	krb5_init_ets(context);
 	XSRETURN_YES;
 
 void

Modified: packages/libauthen-krb5-perl/trunk/debian/changelog
===================================================================
--- packages/libauthen-krb5-perl/trunk/debian/changelog	2005-11-19 17:12:44 UTC (rev 1549)
+++ packages/libauthen-krb5-perl/trunk/debian/changelog	2005-11-29 03:16:00 UTC (rev 1550)
@@ -1,3 +1,12 @@
+libauthen-krb5-perl (1.4-5) unstable; urgency=low
+
+  * Make init_ets a no-op, since krb5_init_ets was a private symbol,
+    calling it has always been unnecessary, and it is no longer exported
+    by the MIT Kerberos libraries as of 1.4.  Update the documentation and
+    example scripts accordingly.
+
+ -- Russ Allbery <rra at debian.org>  Mon, 28 Nov 2005 19:15:03 -0800
+
 libauthen-krb5-perl (1.4-4) unstable; urgency=low
 
   * Use a better method of optionally running make distclean.

Modified: packages/libauthen-krb5-perl/trunk/sample_client
===================================================================
--- packages/libauthen-krb5-perl/trunk/sample_client	2005-11-19 17:12:44 UTC (rev 1549)
+++ packages/libauthen-krb5-perl/trunk/sample_client	2005-11-29 03:16:00 UTC (rev 1550)
@@ -12,7 +12,6 @@
 $SERVER = "server.domain.edu";
 
 Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
 
 $ac = new Authen::Krb5::AuthContext;
 

Modified: packages/libauthen-krb5-perl/trunk/sample_server
===================================================================
--- packages/libauthen-krb5-perl/trunk/sample_server	2005-11-19 17:12:44 UTC (rev 1549)
+++ packages/libauthen-krb5-perl/trunk/sample_server	2005-11-29 03:16:00 UTC (rev 1550)
@@ -15,7 +15,6 @@
 chomp($SERVER = hostname());
 
 Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
 
 $ac = new Authen::Krb5::AuthContext;
 

Modified: packages/libauthen-krb5-perl/trunk/simple_client
===================================================================
--- packages/libauthen-krb5-perl/trunk/simple_client	2005-11-19 17:12:44 UTC (rev 1549)
+++ packages/libauthen-krb5-perl/trunk/simple_client	2005-11-29 03:16:00 UTC (rev 1550)
@@ -12,7 +12,6 @@
 $SERVER = "server.domain.edu";
 
 Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
 
 $ac = new Authen::Krb5::AuthContext;
 

Modified: packages/libauthen-krb5-perl/trunk/simple_server
===================================================================
--- packages/libauthen-krb5-perl/trunk/simple_server	2005-11-19 17:12:44 UTC (rev 1549)
+++ packages/libauthen-krb5-perl/trunk/simple_server	2005-11-29 03:16:00 UTC (rev 1550)
@@ -15,7 +15,6 @@
 chomp($SERVER = hostname());
 
 Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
 
 $ac = new Authen::Krb5::AuthContext;