don't close files that are really tclChannels

diff --git a/lib/gvc/gvdevice.c b/lib/gvc/gvdevice.c
index a2e1274e2ee8886e0ec25d79dd9fa3eee75f67fa..d447744ad658c53b919e2100155716ad0febd894 100644 (file)
--- a/lib/gvc/gvdevice.c
+++ b/lib/gvc/gvdevice.c
@@ -98,12 +98,13 @@ void gvdevice_finalize(GVC_t * gvc)
 
     /* FIXME - file output should be its own device */
     while(active_job) {
-       if (active_job->output_file != stdout 
+       if (active_job->output_filename
+         && active_job->output_file != stdout 
          && ! active_job->external_surface) {
            fclose(active_job->output_file);
            active_job->output_file = NULL;
+            active_job->output_filename = NULL;
        }
-        active_job->output_filename = NULL;
        active_job = active_job->next_active;
     }
 }

diff --git a/tclpkg/tcldot/tcldot.c b/tclpkg/tcldot/tcldot.c
index 92de373ea745b00f84efc38dd95cbc0a99986560..78fadd0417fb01bb2527643813b3199e0c77f688 100644 (file)
--- a/tclpkg/tcldot/tcldot.c
+++ b/tclpkg/tcldot/tcldot.c
@@ -1269,6 +1269,7 @@ static int graphcmd(ClientData clientData, Tcl_Interp * interp,
        if (Tcl_GetOpenFile (interp, argv[2], 1, 1, &outfp) != TCL_OK)
            return TCL_ERROR;
        gvc->job->output_file = (FILE *)outfp;
+       gvc->job->output_filename = NULL;
 
        /* make sure that layout is done  - unless canonical output */
        if ((!GD_drawing(g) || argc > 4)