Changeset 27500 for main

Timestamp:

2013-05-28T13:30:10+12:00 (11 years ago)

Author:

jmt12

Message:

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

File:

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

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -362 +362 @@
 
     my ($output_file_name) = @_;
-     
-    open(*OUTPUT, ">$output_file_name") or die "Can not open a file handler for  $output_file_name\n";
-
-    return *OUTPUT;            
+
+    my $fh;
+    &FileUtils::openFileHandle($output_file_name, '>', \$fh) or die('Can not open a file handler for: ' . $output_file_name . "\n");
+
+    return $fh;
 }