summaryrefslogtreecommitdiff
path: root/network/krb5/krb5_tcl.patch
diff options
context:
space:
mode:
authorWilly Sudiarto Raharjo <willysr@slackbuilds.org>2015-03-03 14:40:32 +0700
committerWilly Sudiarto Raharjo <willysr@slackbuilds.org>2015-03-04 06:32:18 +0700
commit587839f5069f5e3083eaab8814767c8d35a30c29 (patch)
treec65b7270c21db62712ab7d8dbc46dcd0ea7bb97c /network/krb5/krb5_tcl.patch
parentaee47c40c30fc525bbc0334e2f5d2aba3499b697 (diff)
downloadslackbuilds-587839f5069f5e3083eaab8814767c8d35a30c29.tar.gz
network/krb5: Updated for version 1.11.6 + new maintainer.
Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>
Diffstat (limited to 'network/krb5/krb5_tcl.patch')
-rw-r--r--network/krb5/krb5_tcl.patch134
1 files changed, 0 insertions, 134 deletions
diff --git a/network/krb5/krb5_tcl.patch b/network/krb5/krb5_tcl.patch
deleted file mode 100644
index 37d47c51e8..0000000000
--- a/network/krb5/krb5_tcl.patch
+++ /dev/null
@@ -1,134 +0,0 @@
---- src/kadmin/testing/util/tcl_kadm5.c.orig 2013-11-22 16:22:36.690361910 +0700
-+++ src/kadmin/testing/util/tcl_kadm5.c 2013-11-22 16:44:15.022203082 +0700
-@@ -801,7 +801,7 @@
- return retcode;
- }
- if (argc != num_keysalts) {
-- sprintf(interp->result, "%d keysalts specified, "
-+ sprintf(Tcl_GetErrorLine(interp), "%d keysalts specified, "
- "but num_keysalts is %d", argc, num_keysalts);
- retcode = TCL_ERROR;
- goto finished;
-@@ -814,7 +814,7 @@
- goto finished;
- }
- if (argc1 != 2) {
-- sprintf(interp->result, "wrong # fields in keysalt "
-+ sprintf(Tcl_GetErrorLine(interp), "wrong # fields in keysalt "
- "(%d should be 2)", argc1);
- retcode = TCL_ERROR;
- goto finished;
-@@ -856,7 +856,7 @@
- *key_data = NULL;
- if (list == NULL) {
- if (n_key_data != 0) {
-- sprintf(interp->result, "0 key_datas specified, "
-+ sprintf(Tcl_GetErrorLine(interp), "0 key_datas specified, "
- "but n_key_data is %d", n_key_data);
- retcode = TCL_ERROR;
- goto finished;
-@@ -868,14 +868,14 @@
- return retcode;
- }
- if (argc != n_key_data) {
-- sprintf(interp->result, "%d key_datas specified, "
-+ sprintf(Tcl_GetErrorLine(interp), "%d key_datas specified, "
- "but n_key_data is %d", argc, n_key_data);
- retcode = TCL_ERROR;
- goto finished;
- }
-
- if (argc != 0) {
-- sprintf(interp->result, "cannot parse key_data yet");
-+ sprintf(Tcl_GetErrorLine(interp), "cannot parse key_data yet");
- retcode = TCL_ERROR;
- goto finished;
- }
-@@ -896,7 +896,7 @@
- *tlp = NULL;
- if (list == NULL) {
- if (n_tl_data != 0) {
-- sprintf(interp->result, "0 tl_datas specified, "
-+ sprintf(Tcl_GetErrorLine(interp), "0 tl_datas specified, "
- "but n_tl_data is %d", n_tl_data);
- retcode = TCL_ERROR;
- goto finished;
-@@ -908,7 +908,7 @@
- return retcode;
- }
- if (argc != n_tl_data) {
-- sprintf(interp->result, "%d tl_datas specified, "
-+ sprintf(Tcl_GetErrorLine(interp), "%d tl_datas specified, "
- "but n_tl_data is %d", argc, n_tl_data);
- retcode = TCL_ERROR;
- goto finished;
-@@ -929,7 +929,7 @@
- goto finished;
- }
- if (argc1 != 3) {
-- sprintf(interp->result, "wrong # fields in tl_data "
-+ sprintf(Tcl_GetErrorLine(interp), "wrong # fields in tl_data "
- "(%d should be 3)", argc1);
- retcode = TCL_ERROR;
- goto finished;
-@@ -949,7 +949,7 @@
- }
- tl->tl_data_length = tmp;
- if (tl->tl_data_length != strlen(argv1[2])) {
-- sprintf(interp->result, "specified length %d does not "
-+ sprintf(Tcl_GetErrorLine(interp), "specified length %d does not "
- "match length %lu of string \"%s\"", tmp,
- (unsigned long) strlen(argv1[2]), argv1[2]);
- retcode = TCL_ERROR;
-@@ -962,7 +962,7 @@
- tl = tl->tl_data_next;
- }
- if (tl != NULL) {
-- sprintf(interp->result, "tl is not NULL!");
-+ sprintf(Tcl_GetErrorLine(interp), "tl is not NULL!");
- retcode = TCL_ERROR;
- goto finished;
- }
-@@ -992,7 +992,7 @@
- }
-
- if (argc != 20) {
-- sprintf(interp->result,
-+ sprintf(Tcl_GetErrorLine(interp),
- "wrong # args in config params structure (%d should be 20)",
- argc);
- retcode = TCL_ERROR;
-@@ -1129,7 +1129,7 @@
- }
-
- if (argc != 12 && argc != 20) {
-- sprintf(interp->result,
-+ sprintf(Tcl_GetErrorLine(interp),
- "wrong # args in principal structure (%d should be 12 or 20)",
- argc);
- retcode = TCL_ERROR;
-@@ -1391,7 +1391,7 @@
- }
-
- if (argc != 7 && argc != 10) {
-- sprintf(interp->result, "wrong # args in policy structure (%d should be 7 or 10)",
-+ sprintf(Tcl_GetErrorLine(interp), "wrong # args in policy structure (%d should be 7 or 10)",
- argc);
- retcode = TCL_ERROR;
- goto finished;
---- src/kadmin/testing/util/tcl_kadm5.h.orig 2013-11-22 16:33:21.532338510 +0700
-+++ src/kadmin/testing/util/tcl_kadm5.h 2013-11-22 16:33:35.462212999 +0700
-@@ -1,3 +1,12 @@
- /* -*- mode: c; c-basic-offset: 4; indent-tabs-mode: nil -*- */
-
- void Tcl_kadm5_init(Tcl_Interp *interp);
-+
-+/*
-+ * Beginning with 8.6, interp->errorLine isn't public visible anymore
-+ * (TIP 330)
-+*/
-+
-+#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6)
-+# define Tcl_GetErrorLine(interp) (interp)->errorLine
-+#endif
-\ No newline at end of file