Changeset 4225 for trunk/gsdl/perllib
- Timestamp:
- 2003-05-05T14:32:06+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZCompactList.pm
r3540 r4225 263 263 if ($self->{'removeprefix'}) { 264 264 $metavalue =~ s/^$self->{'removeprefix'}//; 265 266 # check that it's not now empty 267 if (!$metavalue) {next;} 265 268 } 266 269 … … 406 409 if ($self->{'removeprefix'}) { 407 410 $formatted_node =~ s/^$self->{'removeprefix'}//; 411 # check that it's not now empty 412 if (!$formatted_node) {next;} 408 413 } 409 414
Note:
See TracChangeset
for help on using the changeset viewer.