Changeset 27303 for main/trunk/greenstone2/perllib/parse3.pm
- Timestamp:
- 2013-05-06T15:23:45+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/parse3.pm
r16125 r27303 8 8 die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'}; 9 9 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'}; 10 unshift (@INC, "$ENV{'GSDLHOME'}/perllib"); 11 unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan"); 10 11 # - ensure perllib paths don't already exist in INC before adding, other- 12 # wise we risk clobbering plugin/classifier inheritence implied by order 13 # of paths in INC [jmt12] 14 my $gsdl_perllib_path = $ENV{'GSDLHOME'} . '/perllib'; 15 my $found_path = 0; 16 foreach my $inc_path (@INC) 17 { 18 if ($inc_path eq $gsdl_perllib_path) 19 { 20 $found_path = 1; 21 last; 22 } 23 } 24 if (!$found_path) 25 { 26 unshift (@INC, $gsdl_perllib_path); 27 unshift (@INC, $gsdl_perllib_path . '/cpan'); 28 } 12 29 } 13 30
Note:
See TracChangeset
for help on using the changeset viewer.