34 lines
929 B
Diff
34 lines
929 B
Diff
From ba3a92a779f7adcf655b7e45b40ee5b0cb79bc8b Mon Sep 17 00:00:00 2001
|
|
From: Slaven Rezic <slaven@rezic.de>
|
|
Date: Fri, 14 Mar 2014 16:00:05 +0100
|
|
Subject: [PATCH 02/10] no segfaults if Tk::MainWindow::Create was called
|
|
without args
|
|
MIME-Version: 1.0
|
|
Content-Type: text/plain; charset=UTF-8
|
|
Content-Transfer-Encoding: 8bit
|
|
|
|
However, this case never happened in real life, as this function was
|
|
not supposed to be used directly anyway.
|
|
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
---
|
|
tkGlue.c | 2 +-
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
|
|
|
diff --git a/tkGlue.c b/tkGlue.c
|
|
index 57f0bca..ae595bf 100644
|
|
--- a/tkGlue.c
|
|
+++ b/tkGlue.c
|
|
@@ -2370,7 +2370,7 @@ XS(XS_Tk__MainWindow_Create)
|
|
STRLEN na;
|
|
Tcl_Interp *interp = Tcl_CreateInterp();
|
|
SV **args = &ST(0);
|
|
- char *appName = SvPV(ST(1),na);
|
|
+ char *appName = items >= 1 ? SvPV(ST(1),na) : "";
|
|
int offset = args - sp;
|
|
int code;
|
|
if (!initialized)
|
|
--
|
|
1.9.3
|
|
|