diff options
| author | Mikhail Teterin <mi@FreeBSD.org> | 2001-08-08 03:23:35 +0000 |
|---|---|---|
| committer | Mikhail Teterin <mi@FreeBSD.org> | 2001-08-08 03:23:35 +0000 |
| commit | 97d3f9d9d8efcee2c70d49bb0b7fc814d291b85b (patch) | |
| tree | b09ec97787322d7b7298efb77bb3d044fb1e8e17 /www/mod_dtcl/files/patch-cast | |
| parent | 23791279083352cc0d9010eccb35949c57f7a43e (diff) | |
| download | ports-97d3f9d9d8efcee2c70d49bb0b7fc814d291b85b.tar.gz ports-97d3f9d9d8efcee2c70d49bb0b7fc814d291b85b.zip | |
Notes
Diffstat (limited to 'www/mod_dtcl/files/patch-cast')
| -rw-r--r-- | www/mod_dtcl/files/patch-cast | 49 |
1 files changed, 35 insertions, 14 deletions
diff --git a/www/mod_dtcl/files/patch-cast b/www/mod_dtcl/files/patch-cast index 8e9a6d16b8c8..e046019aac6b 100644 --- a/www/mod_dtcl/files/patch-cast +++ b/www/mod_dtcl/files/patch-cast @@ -1,15 +1,36 @@ ---- mod_dtcl.c Tue May 1 11:56:01 2001 -+++ mod_dtcl.c Fri Jun 1 20:29:10 2001 -@@ -735,3 +735,3 @@ - /* take results and create tcl variables from them */ --#if USE_ONLY_VAR_COMMAND == 1 -+#if USE_ONLY_VAR_COMMAND == 0 - if (req->parms) -@@ -792 +792,6 @@ -- chan = Tcl_MakeFileChannel((ClientData *)fileno(upload->fp), TCL_READABLE); -+ union { -+ ClientData handle; -+ int fd; -+ } handle; -+ handle.fd = fileno(upload->fp); +--- tcl_commands.c Fri Jun 29 12:38:00 2001 ++++ tcl_commands.c Tue Aug 7 22:55:11 2001 +@@ -676,7 +676,14 @@ + { ++ union { ++ ClientData handle; ++ int fd; ++ } handle; ++ FILE *f; + Tcl_Channel chan; + char *method = Tcl_GetString(objv[3]); ++ f = ApacheUpload_FILE(upload); ++ handle.fd = f ? fileno(f) : -1; + if (!strcmp(method, "channel")) + { +- if (ApacheUpload_FILE(upload) != NULL) ++ if (handle.fd != -1) + { +@@ -684,4 +690,3 @@ + char *channelname = NULL; +- chan = Tcl_MakeFileChannel((ClientData *)fileno( +- ApacheUpload_FILE(upload)), TCL_READABLE); ++ chan = Tcl_MakeFileChannel(handle.handle, TCL_READABLE); + Tcl_RegisterChannel(interp, chan); +@@ -709,4 +714,3 @@ + +- chan = Tcl_MakeFileChannel((ClientData *)fileno( +- ApacheUpload_FILE(upload)), TCL_READABLE); + chan = Tcl_MakeFileChannel(handle.handle, TCL_READABLE); + Tcl_SetChannelOption(interp, chan, "-translation", "binary"); +@@ -736,4 +740,3 @@ + bytes = Tcl_Alloc(ApacheUpload_size(upload)); +- chan = Tcl_MakeFileChannel((ClientData *)fileno( +- ApacheUpload_FILE(upload)), TCL_READABLE); ++ chan = Tcl_MakeFileChannel(handle.handle, TCL_READABLE); + Tcl_SetChannelOption(interp, chan, "-translation", "binary"); |