Changeset 1729

Timestamp:

2000-11-30T18:17:08+13:00 (23 years ago)

Author:

jrm21

Message:

title regexp should have started "\s*", not "\s+" - it's optional whitespace!

File:

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

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -63 +63 @@
     # in from another plugin)
     if (!defined $metadata->{'Title'}) {
-    my ($title) = $$textref =~ /^\s+([^\n]*)/;
+    my ($title) = $$textref =~ /^\s*([^\n]*)/;
+    print STDERR "Title: ^$title^\n";
     if (length($title) > 100) {
         $title = substr ($title, 0, 100);