Changeset 27522
- Timestamp:
- 2013-05-30T21:15:49+12:00 (11 years ago)
- Location:
- main/trunk/greenstone2
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/wvware.pl
r27519 r27522 40 40 use strict; 41 41 use util; 42 use FileUtil ;42 use FileUtils; 43 43 44 44 # Are we running on WinNT or Win2000 (or later)? -
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.