Changeset 27374
- Timestamp:
- 2013-05-21T14:43:21+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r27326 r27374 1262 1262 1263 1263 1264 # /**@function augmentINC()1265 # * Prepend a path (if it exists) onto INC but only if it isn't already in1266 # *INC1267 # * @param $new_path The path to add as necessary1268 # *@author jmt121269 # */1264 ## @function augmentINC() 1265 # 1266 # Prepend a path (if it exists) onto INC but only if it isn't already in INC 1267 # @param $new_path The path to add 1268 # @author jmt12 1269 # 1270 1270 sub augmentINC 1271 1271 { 1272 1272 my ($new_path) = @_; 1273 1273 my $did_add_path = 0; 1274 # willneed to be replaced with FileUtils::directoryExists() call eventually1274 # might need to be replaced with FileUtils::directoryExists() call eventually 1275 1275 if (-d $new_path) 1276 1276 { … … 1292 1292 return $did_add_path; 1293 1293 } 1294 # /** augmentINC($new_path) **/ 1294 ## augmentINC() 1295 1295 1296 1296 1297 1;
Note:
See TracChangeset
for help on using the changeset viewer.