Changeset 7702

Timestamp:

2004-07-05T13:57:11+12:00 (20 years ago)

Author:

jrm21

Message:

handle metadata values that start with a "-", instead of screwing up
option parsing.

File:

• trunk/gsdl/perllib/classify/AZCompactList.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -359 +359 @@
 
         my $metavalue = $mvp->{'mv'};
-        $mtfreq{$metavalue}++; 
+        $metavalue =~ s!^-!\\-!; # in case it starts with "-"
+        $mtfreq{$metavalue}++;
     }
     } @$classlist_ref;
@@ -371 +372 @@
     {
         my $metavalue = $mvp->{'mv'};
+        $metavalue =~ s!^-!\\-!; # in case it starts with "-"
         my $cs_metavalue = $mvp->{'mv'}; # case sensative
         if ($mtfreq{$metavalue} >= $self->{'mingroup'})