Changeset 10608


Ignore:
Timestamp:
2005-09-21T09:32:29+12:00 (18 years ago)
Author:
kjdon
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/doc.pm

    r10217 r10608  
    145145    my ($type) = @_;
    146146
    147     if ($type =~ /^(hash|incremental|dirname|assigned)$/) {
     147    if (defined $type && $type =~ /^(hash|incremental|dirname|assigned)$/) {
    148148    $self->{'OIDtype'} = $type;
    149149    } else {
Note: See TracChangeset for help on using the changeset viewer.