Changeset 10608

Timestamp:

2005-09-21T09:32:29+12:00 (19 years ago)

Author:

kjdon

Message:

added a check for type being defined before using it in set_OIDtype

File:

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

trunk/gsdl/perllib/doc.pm

@@ -145 +145 @@
     my ($type) = @_;
 
-    if ($type =~ /^(hash|incremental|dirname|assigned)$/) {
+    if (defined $type && $type =~ /^(hash|incremental|dirname|assigned)$/) {
     $self->{'OIDtype'} = $type;
     } else {