Changeset 3510 for trunk/gsdl/perllib

Timestamp:

2002-10-30T18:05:53+13:00 (22 years ago)

Author:

jrm21

Message:

need to check that remove_prefix is defined before checking its length

File:

• trunk/gsdl/perllib/classify/AZList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZList.pm

@@ -105 +105 @@
     # sorting by we won't include it in this classification
     if (defined $metavalue && $metavalue ne "") {
-    if (length($self->{'removeprefix'})) {
+    if (defined($self->{'removeprefix'}) &&
+        length($self->{'removeprefix'})) {
         $metavalue =~ s/^$self->{'removeprefix'}//;
     }