- Timestamp:
- 2012-09-20T09:37:50+12:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugin.pm
r25957 r26223 129 129 foreach my $plugname (@check_list) { 130 130 if (-e $plugname) { 131 # lets add perllib folder to INC 132 my ($perllibfolder) = $plugname =~ /^(.*[\/\\]perllib)[\/\\]plugins/; 133 if (-d $perllibfolder) { 134 unshift (@INC, $perllibfolder); 135 } 131 136 require $plugname; 132 137 $success=1; … … 166 171 $failhandle = 'STDERR' unless defined $failhandle; 167 172 168 my $colplugindir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib/plugins"); 173 my $colperllibdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib"); 174 unshift (@INC, $colperllibdir); 175 my $colplugindir = &util::filename_cat($colperllibdir,"plugins"); 169 176 unshift (@INC, $colplugindir); 170 177
Note:
See TracChangeset
for help on using the changeset viewer.