Changeset 27623 for main/trunk
- Timestamp:
- 2013-06-14T15:50:20+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugin.pm
r27303 r27623 129 129 my $success=0; 130 130 foreach my $plugname (@check_list) { 131 if ( -e $plugname) {131 if (&FileUtils::fileExists($plugname)) { 132 132 # lets add perllib folder to INC 133 133 # check it isn't already there first [jmt12] 134 134 my ($perllibfolder) = $plugname =~ /^(.*[\/\\]perllib)[\/\\]plugins/; 135 if ( -d $perllibfolder)135 if (&FileUtils::directoryExists($perllibfolder)) 136 136 { 137 137 my $found_perllibfolder = 0; … … 285 285 # the .kill file is a handy (if not very elegant) way of aborting 286 286 # an import.pl or buildcol.pl process 287 if ( -e &FileUtils::filenameConcatenate($ENV{'GSDLCOLLECTDIR'}, ".kill")) {287 if (&FileUtils::fileExists(&FileUtils::filenameConcatenate($ENV{'GSDLCOLLECTDIR'}, ".kill"))) { 288 288 gsprintf($outhandle, "{plugin.kill_file}\n"); 289 289 die "\n"; … … 316 316 # the .kill file is a handy (if not very elegant) way of aborting 317 317 # an import.pl or buildcol.pl process 318 if ( -e &FileUtils::filenameConcatenate($ENV{'GSDLCOLLECTDIR'}, ".kill")) {318 if (&FileUtils::fileExists(&FileUtils::filenameConcatenate($ENV{'GSDLCOLLECTDIR'}, ".kill"))) { 319 319 gsprintf($outhandle, "{plugin.kill_file}\n"); 320 320 die "\n"; … … 367 367 # the .kill file is a handy (if not very elegant) way of aborting 368 368 # an import.pl or buildcol.pl process 369 if ( -e &FileUtils::filenameConcatenate($ENV{'GSDLCOLLECTDIR'}, ".kill")) {369 if (&FileUtils::fileExists(&FileUtils::filenameConcatenate($ENV{'GSDLCOLLECTDIR'}, ".kill"))) { 370 370 gsprintf($outhandle, "{plugin.kill_file}\n"); 371 371 die "\n";
Note:
See TracChangeset
for help on using the changeset viewer.