Show
Ignore:
Timestamp:
17.06.2016 16:05:31 (4 years ago)
Author:
ak19
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/util.pm

    r30574 r30575  
    258258         
    259259        my $tmp_test_file = &FileUtils::filenameConcatenate($tmp_dirname, "writability_test.tmp"); 
    260         if (open (FOUT, $tmp_test_file)) { 
     260        if (open (FOUT, ">$tmp_test_file")) { 
    261261            close(FOUT); 
    262262            &FileUtils::removeFiles($tmp_test_file);