Changeset 11353

Timestamp:

2006-03-13T17:06:45+13:00 (18 years ago)

Author:

mdewsnip

Message:

Added a bit of code to prevent infinite looping on bad data.

File:

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

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -244 +244 @@
         # If there is a subfield specifier, parse it off
         my $sub_metadata_name = $metadata_name;
-        if ($raw_metadata_value =~ s/^(\^[a-z])//) {
+        if ($raw_metadata_value =~ s/^\^// && $raw_metadata_value =~ s/^([a-z])//) {
             $sub_metadata_name .= $1;
         }