Changeset 30575

Timestamp:

2016-06-17T16:05:31+12:00 (7 years ago)

Author:

ak19

Message:

Important correction to previous commit: forgot file output character when opening file handle for writing.

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -258 +258 @@
         
         my $tmp_test_file = &FileUtils::filenameConcatenate($tmp_dirname, "writability_test.tmp");
-        if (open (FOUT, $tmp_test_file)) {
+        if (open (FOUT, ">$tmp_test_file")) {
             close(FOUT);
             &FileUtils::removeFiles($tmp_test_file);