- Timestamp:
- 2013-05-30T21:15:49+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/GreenstoneXMLPlugout.pm
r27517 r27522 65 65 66 66 my $outhandler; 67 my $output_file; 67 68 if ($self->{'debug'}) { 68 69 $outhandler = STDOUT; … … 86 87 $self->process_metafiles_metadata ($doc_obj); 87 88 88 my$output_file = &FileUtils::filenameConcatenate($working_dir, "doc.xml");89 $output_file = &FileUtils::filenameConcatenate($working_dir, "doc.xml"); 89 90 90 91 $self->open_xslt_pipe($output_file, $self->{'xslt_file'}); … … 110 111 } 111 112 else { 112 &FileUtils::closeFileHandle($output_file, \$outhandler) ;113 &FileUtils::closeFileHandle($output_file, \$outhandler) if defined $output_file; 113 114 } 114 115
Note:
See TracChangeset
for help on using the changeset viewer.