Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:13.2:Update
perl-Tk
Tk-804.032-tkglue.diff
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File Tk-804.032-tkglue.diff of Package perl-Tk
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] 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. --- 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) -- 2.0.2
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor