Changeset 23248 for main/trunk/greenstone2/perllib/plugins/OpenDocumentPlugin.pm

Timestamp:

2010-10-29T14:57:48+13:00 (13 years ago)

Author:

ak19

Message:

Bugfix: file called mimetype (among the files extracted from an Open Office *.odt archive file) was not being deleted because its filehandle wasn't being closed.

File:

• main/trunk/greenstone2/perllib/plugins/OpenDocumentPlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/OpenDocumentPlugin.pm

@@ -299 +299 @@
        $text .= $line;   
     }
+    close(FILEIN);
     return $text;
     }