Changeset 2363

Timestamp:

2001-05-04T14:58:33+12:00 (23 years ago)

Author:

jrm21

Message:

fixed nasty bug where </srclink></a><srclink> was being matched
incorrectly, creating a new tag that was swallowing next line, which
happens to be <Identifier>... anyway, fixed regexp and we can now actually
get away with not escaping the text.

File:

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

trunk/gsdl/perllib/plugins/GMLPlug.pm

@@ -141 +141 @@
             ($metadata,$text) 
             = ($text =~ m/\s*<metadata>\s*(<.*)\s*<\/metadata>(.*)$/s);
+
+            # note: \1 refers to 1st match within regexp, so we can
+            # handle the unescaped text here...
             while ((defined $metadata) 
-               && ($metadata =~ s/<(.*?)>(.*?)<\/.*?>//s))
+               && ($metadata =~ s/<(.*?)>(.*?)<\/\1>//s))
             {
             if (defined $1 && defined $2)