Changeset 27334 for main/trunk/greenstone2/perllib/classify.pm
- Timestamp:
- 2013-05-14T15:44:52+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify.pm
r27303 r27334 101 101 # wise we risk clobbering classifier inheritence implied by order of paths 102 102 # in INC [jmt12] 103 my $inc_paths = join(':',@INC); 104 if ($inc_paths !~ /$colclassdir/) 103 my $inc_paths = join(':',@INC); 104 105 $colclassdir = &FileUtils::filenameConcatenate($colclassdir); # no mix of / and \ slashes, only OS-specific slash 106 $colclassdir = &util::filename_to_regex($colclassdir); # to regex protect windows filepaths 107 # Normalise slashes in INC filepaths: ensure it has slashes going the same way as $colclassdir 108 # and further doesn't have a mix of / and \ slashes. 109 $inc_paths = &FileUtils::filenameConcatenate($inc_paths); 110 print STDERR "**** INC: $colclassdir | $inc_paths\n"; 111 if ($inc_paths !~ m@$colclassdir@) 105 112 { 106 113 unshift (@INC, $colclassdir);
Note:
See TracChangeset
for help on using the changeset viewer.