Changeset 29112 for main/trunk/greenstone2/perllib
- Timestamp:
- 2014-07-03T14:36:25+12:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r28997 r29112 447 447 sub tidy_up_oid { 448 448 my ($OID) = @_; 449 if ($OID =~ / \./) {450 print STDERR "Warning, identifier $OID contains periods (.), removing them\n";451 $OID =~ s/ \.//g; #remove any periods449 if ($OID =~ /[\.\/\\]/) { 450 print STDERR "Warning, identifier $OID contains periods or slashes(.\\\/), replacing them with _\n"; 451 $OID =~ s/[\.\\\/]/_/g; #remove any periods 452 452 } 453 453 if ($OID =~ /^\s.*\s$/) {
Note:
See TracChangeset
for help on using the changeset viewer.