Changeset 18561 for gsdl/trunk
- Timestamp:
- 2009-02-20T14:44:17+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/doc.pm
r18528 r18561 318 318 $OID =~ s/\.//g; #remove any periods 319 319 } 320 if ($OID =~ /^ \d*$/) {320 if ($OID =~ /^[\d]*$/) { 321 321 print STDERR "Warning, assigned identifier $identifier contains only digits. Prepending 'D'.\n"; 322 322 $OID = "D" . $OID; 323 } 324 if ($OID =~ /^[\d]*$/) { 325 $OID = "D" . $OID; 326 print STDERR "OID only contains numbers, adding a D\n"; 327 } 328 323 } 329 324 } else { 330 325 # need a hash id
Note:
See TracChangeset
for help on using the changeset viewer.