don't close external surfaces (breaks tcldot)

diff --git a/lib/gvc/gvdevice.c b/lib/gvc/gvdevice.c
index 0f6ffc7d73427480cdb3f8d59f94930511f10528..a2e1274e2ee8886e0ec25d79dd9fa3eee75f67fa 100644 (file)
--- a/lib/gvc/gvdevice.c
+++ b/lib/gvc/gvdevice.c
@@ -98,7 +98,8 @@ 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_file != stdout 
+         && ! active_job->external_surface) {
            fclose(active_job->output_file);
            active_job->output_file = NULL;
        }