Changeset 27522

Show
Ignore:
Timestamp:
30.05.2013 21:15:49 (6 years ago)
Author:
ak19
Message:

Correcting some minor bugs during build.

Location:
main/trunk/greenstone2
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/bin/script/wvware.pl

    r27519 r27522  
    4040use strict; 
    4141use util; 
    42 use FileUtil; 
     42use FileUtils; 
    4343 
    4444# Are we running on WinNT or Win2000 (or later)? 
  • main/trunk/greenstone2/perllib/plugouts/GreenstoneXMLPlugout.pm

    r27517 r27522  
    6565 
    6666    my $outhandler; 
     67    my $output_file; 
    6768    if ($self->{'debug'}) { 
    6869    $outhandler = STDOUT; 
     
    8687    $self->process_metafiles_metadata ($doc_obj); 
    8788 
    88     my $output_file = &FileUtils::filenameConcatenate($working_dir, "doc.xml"); 
     89    $output_file = &FileUtils::filenameConcatenate($working_dir, "doc.xml"); 
    8990 
    9091    $self->open_xslt_pipe($output_file, $self->{'xslt_file'}); 
     
    110111    } 
    111112    else { 
    112         &FileUtils::closeFileHandle($output_file, \$outhandler); 
     113        &FileUtils::closeFileHandle($output_file, \$outhandler) if defined $output_file; 
    113114    } 
    114115