summaryrefslogtreecommitdiff
path: root/databases/db5/files/patch-lang_tcl_tcl__seq.c
diff options
context:
space:
mode:
authorMatthias Andree <mandree@FreeBSD.org>2016-05-24 21:26:12 +0000
committerMatthias Andree <mandree@FreeBSD.org>2016-05-24 21:26:12 +0000
commita59f1e5a96e7443958f3f56de0dacaacf86ba5f8 (patch)
treef3ad09d7bc5dd43aa924f6c914aa16922966ca5f /databases/db5/files/patch-lang_tcl_tcl__seq.c
parentDisable SSLv2, to fix new/from-ports OpenSSL builds. (diff)
Fix strncat() misuse, and enable TCL option.
PR: 209730 Submitted by: gahr@
Diffstat (limited to 'databases/db5/files/patch-lang_tcl_tcl__seq.c')
-rw-r--r--databases/db5/files/patch-lang_tcl_tcl__seq.c16
1 files changed, 16 insertions, 0 deletions
diff --git a/databases/db5/files/patch-lang_tcl_tcl__seq.c b/databases/db5/files/patch-lang_tcl_tcl__seq.c
new file mode 100644
index 000000000000..14bb378b718a
--- /dev/null
+++ b/databases/db5/files/patch-lang_tcl_tcl__seq.c
@@ -0,0 +1,16 @@
+--- lang/tcl/tcl_seq.c.orig 2016-05-24 08:18:03 UTC
++++ lang/tcl/tcl_seq.c
+@@ -555,9 +555,10 @@ tcl_SeqGetFlags(interp, objc, objv, seq)
+ for (i = 0; seq_flags[i].flag != 0; i++)
+ if (LF_ISSET(seq_flags[i].flag)) {
+ if (strlen(buf) > 0)
+- (void)strncat(buf, " ", sizeof(buf));
+- (void)strncat(
+- buf, seq_flags[i].arg, sizeof(buf));
++ (void)strncat(buf, " ",
++ sizeof(buf) - (strlen(buf) + 1));
++ (void)strncat(buf, seq_flags[i].arg,
++ sizeof(buf) - (strlen(buf) + 1));
+ }
+
+ res = NewStringObj(buf, strlen(buf));