Changeset 15717

Show
Ignore:
Timestamp:
27.05.2008 13:06:45 (12 years ago)
Author:
mdewsnip
Message:

Minor change.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/dbutil.pm

    r15711 r15717  
    8686 
    8787    my $txt2db_exe = &util::filename_cat("$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}", "txt2db" . &util::get_os_exe()); 
    88     if (!-e "$txt2db_exe" || !open(PIPEOUT, "| $txt2db_exe \"$infodb_file_path\"")) 
     88    my $infodb_file_handle = undef; 
     89    if (!-e "$txt2db_exe" || !open($infodb_file_handle, "| $txt2db_exe \"$infodb_file_path\"")) 
    8990    { 
    9091    return undef; 
    9192    } 
    9293 
    93     return *PIPEOUT; 
     94    return $infodb_file_handle; 
    9495} 
    9596