Changeset 27500

Show
Ignore:
Timestamp:
28.05.2013 13:30:10 (6 years ago)
Author:
jmt12
Message:

Missed an old style file open that instead needs to go through FileUtils::openFileHandle()

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

    r27499 r27500  
    362362 
    363363    my ($output_file_name) = @_; 
    364       
    365     open(*OUTPUT, ">$output_file_name") or die "Can not open a file handler for  $output_file_name\n"; 
    366  
    367     return *OUTPUT;             
     364 
     365    my $fh; 
     366    &FileUtils::openFileHandle($output_file_name, '>', \$fh) or die('Can not open a file handler for: ' . $output_file_name . "\n"); 
     367 
     368    return $fh; 
    368369} 
    369370