Changeset 15717

Timestamp:

2008-05-27T13:06:45+12:00 (16 years ago)

Author:

mdewsnip

Message:

Minor change.

File:

• gsdl/trunk/perllib/dbutil.pm (modified) (1 diff)

gsdl/trunk/perllib/dbutil.pm

@@ -86 +86 @@
 
     my $txt2db_exe = &util::filename_cat("$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}", "txt2db" . &util::get_os_exe());
-    if (!-e "$txt2db_exe" || !open(PIPEOUT, "| $txt2db_exe \"$infodb_file_path\""))
+    my $infodb_file_handle = undef;
+    if (!-e "$txt2db_exe" || !open($infodb_file_handle, "| $txt2db_exe \"$infodb_file_path\""))
     {
     return undef;
     }
 
-    return *PIPEOUT;
+    return $infodb_file_handle;
 }