Authen-Krb5.diff   [plain text]

diff -Naur Authen-Krb5/Krb5.xs /tmp/Krb5-1.6/Krb5.xs
--- Authen-Krb5/Krb5.xs	2007-11-02 12:32:46.000000000 -0500
+++ /tmp/Krb5-1.6/Krb5.xs	2007-11-02 12:40:31.000000000 -0500
@@ -108,7 +108,7 @@
 krb5_init_context()
 
 	CODE:
-	if (context) croak("Authen::Krb5 already initialized");
+	if (context) krb5_free_context(context);
 	err = krb5_init_context(&context);
 	if (err) XSRETURN_UNDEF;
 	XSRETURN_YES;
@@ -142,6 +142,22 @@
 	Safefree(realm);
 
 void
+krb5_context_is_inited()
+
+	CODE:
+	if (!context) XSRETURN_UNDEF;
+	XSRETURN_YES;
+
+void
+krb5_set_default_realm(realm)
+	char *realm;
+
+	CODE:
+	err = krb5_set_default_realm(context,realm);
+	if (err) XSRETURN_UNDEF;
+	XSRETURN_YES;
+
+void
 krb5_get_host_realm(host)
 	char *host