commit ba3a92a779f7adcf655b7e45b40ee5b0cb79bc8b Author: Slaven Rezic Date: Fri Mar 14 16:00:05 2014 +0100 no segfaults if Tk::MainWindow::Create was called without args However, this case never happened in real life, as this function was not supposed to be used directly anyway. 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)