--- Krb5-1.5/Krb5.pm.orig       2005-11-28 20:42:52.518978400 -0800
+++ Krb5-1.5/Krb5.pm    2005-11-28 20:45:51.073686800 -0800
@@ -95,7 +95,6 @@
 use Authen::Krb5;
 
 Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
 
 =head1 DESCRIPTION
 
@@ -117,13 +116,8 @@
 =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.
-
-=item init_ets()
-
-Initializes the Kerberos error tables.  Should be called along with
-init_context at the beginning of a script.
+object, or undef if there was an error.  Should be called at the beginning of
+a script.
 
 =item get_default_realm()
 
--- Krb5-1.5/sample_client.orig 2005-11-28 20:43:22.407517000 -0800
+++ Krb5-1.5/sample_client      2005-11-28 20:43:55.312971200 -0800
@@ -12,7 +12,6 @@
 $SERVER = "server.domain.edu";
 
 Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
 
 $ac = new Authen::Krb5::AuthContext;
 
--- Krb5-1.5/sample_server.orig 2005-11-28 20:43:29.740145800 -0800
+++ Krb5-1.5/sample_server      2005-11-28 20:45:11.188086200 -0800
@@ -15,7 +15,6 @@
 chomp($SERVER = hostname());
 
 Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
 
 $ac = new Authen::Krb5::AuthContext;
 
--- Krb5-1.5/simple_client.orig 2005-11-28 20:43:43.434352000 -0800
+++ Krb5-1.5/simple_client      2005-11-28 20:44:10.084801400 -0800
@@ -12,7 +12,6 @@
 $SERVER = "server.domain.edu";
 
 Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
 
 $ac = new Authen::Krb5::AuthContext;
 
--- Krb5-1.5/simple_server.orig 2005-11-28 20:43:38.308437400 -0800
+++ Krb5-1.5/simple_server      2005-11-28 20:44:02.869048800 -0800
@@ -15,7 +15,6 @@
 chomp($SERVER = hostname());
 
 Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
 
 $ac = new Authen::Krb5::AuthContext;
 

--- Krb5-1.5/Krb5.xs.orig	2005-05-02 12:55:42.000002000 -0700
+++ Krb5-1.5/Krb5.xs	2006-02-04 12:34:32.000001000 -0800
@@ -123,7 +123,8 @@
 krb5_init_ets()
 
 	CODE:
-	krb5_init_ets(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. */
 	XSRETURN_YES;
 
 void