Changeset 11097 for trunk/gsdl

Timestamp:

2006-01-25T09:26:25+13:00 (18 years ago)

Author:

kjdon

Message:

check existence of Plugin metadata before using it, line 186

File:

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

trunk/gsdl/perllib/doc.pm

@@ -185 +185 @@
 
     if (!defined $filename) {
+    my $plugin_name = $self->get_metadata_element ($self->get_top_section(), "Plugin");
     # if NULPlug processed file, then don't give a filename
-    if ($self->get_metadata_element ($self->get_top_section(), "Plugin") eq "NULPlug") {
+    if (defined $plugin_name && $plugin_name eq "NULPlug") {
         $filename = undef;
     } else {