Changeset 24069

Timestamp:

2011-05-20T12:39:02+12:00 (13 years ago)

Author:

jmt12

Message:

Removed environment setting for executable path resolution as this shoulod already be correctly set up on the system PATH. Wrong variable name in one debug comment.

File:

• gs2-extensions/tdb-edit/trunk/src/perllib/dbutil/tdb.pm (modified) (2 diffs)

gs2-extensions/tdb-edit/trunk/src/perllib/dbutil/tdb.pm

@@ -43 +43 @@
 {
   my $program = shift(@_);
-  my $program_exe = &util::filename_cat($ENV{'$GEXTTDBEDIT_INSTALLED'},"bin", $program . &util::get_os_exe());
+  my $program_exe = &util::filename_cat($program . &util::get_os_exe());
   if (!-x $program_exe)
   {
@@ -118 +118 @@
   if (!open (PIPEIN, "\"$tdb2txt_exe\" \"$infodb_file_path\" |"))
   {
-    print STDERR "Error: Failed to open pipe to $cmd\n";
+    print STDERR 'Error: Failed to open pipe to ' . $tdb2txt_exe . "\n";
     print STDERR "       $!\n";
     return undef;