Changeset 24069


Ignore:
Timestamp:
05/20/11 12:39:02 (10 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:
1 edited

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;
Note: See TracChangeset for help on using the changeset viewer.