You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by ro...@apache.org on 2002/11/13 17:51:30 UTC
cvs commit: tcl-websh/src/generic url.c
ronnie 2002/11/13 08:51:30
Modified: src/generic url.c
Log:
- fixed core dump when scheme is in urlformat
Revision Changes Path
1.8 +2 -2 tcl-websh/src/generic/url.c
Index: url.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/url.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- url.c 11 Sep 2002 13:54:01 -0000 1.7
+++ url.c 13 Nov 2002 16:51:29 -0000 1.8
@@ -649,7 +649,7 @@
if (schemeObj != NULL)
scheme = Tcl_GetString(schemeObj);
}
- if (!strcmp(scheme, "on")) {
+ if (scheme != NULL && !strcmp(scheme, "on")) {
Tcl_AppendObjToObj(res, Tcl_NewStringObj("https", -1));
Tcl_AppendToObj(res, WEBURL_SCHEME_SEP, -1);
} else {
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org