Changeset 30265 for gs2-extensions/tdb/trunk
- Timestamp:
- 2015-09-28T10:54:14+13:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/tdb/trunk/perllib/dbutil/tdb.pm
r27401 r30265 54 54 sub get_tdb_executable 55 55 { 56 my $program = shift(@_); 57 my $program_exe = &util::filename_cat($program . &util::get_os_exe()); 58 #if (!-x $program_exe) 59 #{ 60 # die('Fatal Error! File doesn\'t exist or isn\'t executable: ' . $program_exe); 61 #} 62 return $program_exe; 56 my $program = shift(@_); 57 if (!defined $ENV{GEXTTDBEDIT_INSTALLED} || !-d $ENV{GEXTTDBEDIT_INSTALLED}) 58 { 59 die('Fatal Error! Path to TDB binaries not found. Have you sourced setup.bash?'); 60 } 61 my $program_exe = &util::filename_cat($ENV{GEXTTDBEDIT_INSTALLED} . '/bin/' . $program . &util::get_os_exe()); 62 if (!-x $program_exe) 63 { 64 die('Fatal Error! File doesn\'t exist or isn\'t executable: ' . $program_exe); 65 } 66 return $program_exe; 63 67 } 64 68 # /** get_tdb_executable() **/
Note:
See TracChangeset
for help on using the changeset viewer.