Changeset 24069

Show
Ignore:
Timestamp:
20.05.2011 12:39:02 (8 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.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/tdb-edit/trunk/src/perllib/dbutil/tdb.pm

    r24050 r24069  
    4343{ 
    4444  my $program = shift(@_); 
    45   my $program_exe = &util::filename_cat($ENV{'$GEXTTDBEDIT_INSTALLED'},"bin", $program . &util::get_os_exe()); 
     45  my $program_exe = &util::filename_cat($program . &util::get_os_exe()); 
    4646  if (!-x $program_exe) 
    4747  { 
     
    118118  if (!open (PIPEIN, "\"$tdb2txt_exe\" \"$infodb_file_path\" |")) 
    119119  { 
    120     print STDERR "Error: Failed to open pipe to $cmd\n"; 
     120    print STDERR 'Error: Failed to open pipe to ' . $tdb2txt_exe . "\n"; 
    121121    print STDERR "       $!\n"; 
    122122    return undef;