Changeset 3037

Timestamp:

2002-03-04T11:47:12+13:00 (22 years ago)

Author:

jrm21

Message:

title_sub seems to always get defined by parsargv, so we test that it is
non-empty as well as defined before doing s/;

File:

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

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -86 +86 @@
     my ($title) = $$textref;
     $title =~ /^\s+/s;
-    if (defined $self->{'title_sub'}) {$title =~ s/$self->{'title_sub'}//;}
+    if (defined $self->{'title_sub'} &&
+        $self->{'title_sub'}) {$title =~ s/$self->{'title_sub'}//;}
     $title =~ /^\s*([^\n]*)/s; $title=$1;
     if (length($title) > 100) {