Changeset 30357
- Timestamp:
- 2015-12-18T20:46:01+13:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil.pm
r30356 r30357 37 37 } 38 38 # Are we running standalone? In which case the INC won't be correct 39 my $perllib_path = $ENV{'GSDLHOME'} . '/perllib'; 40 my $all_inc = join(':', @INC); 41 if ($all_inc !~ /$perllib_path/) { 42 unshift(@INC, $perllib_path); 43 unshift(@INC, $ENV{'GSDLHOME'} . '/ext/parallel-building/perllib'); 44 unshift(@INC, $ENV{'GSDLHOME'} . '/ext/tdb/perllib'); 39 # - derp. Linux only sorry 40 if ($^O !~ /cygwin|MSWin32/) { 41 my $perllib_path = $ENV{'GSDLHOME'} . '/perllib'; 42 my $all_inc = join(':', @INC); 43 if ($all_inc !~ /$perllib_path/) { 44 unshift(@INC, $perllib_path); 45 unshift(@INC, $ENV{'GSDLHOME'} . '/ext/parallel-building/perllib'); 46 unshift(@INC, $ENV{'GSDLHOME'} . '/ext/tdb/perllib'); 47 } 45 48 } 46 49 ## You can uncomment and name a Driver here to test it compiles
Note:
See TracChangeset
for help on using the changeset viewer.