Changeset 253 for trunk

Timestamp:

1999-05-04T10:58:01+12:00 (25 years ago)

Author:

sjboddie

Message:

fixed bug in regular expression being sent to cfgread

File:

• trunk/gsdl/perllib/classify/Hierarchy.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -38 +38 @@
 
     # read in the subject file
-    my $list = &cfgread::read_cfg_file ($self->{'subjectfile'}, undef, '^[^#]\w');
+    my $list = &cfgread::read_cfg_file ($self->{'subjectfile'}, undef, '^[^#]?\w');
     
     foreach $descriptor (keys (%$list)) {
     $self->{'descriptorlist'}->{$descriptor} = $list->{$descriptor}->[0];
+    print STDERR "descriptor: $descriptor\n";
     unless (defined $self->{'locatorlist'}->{$list->{$descriptor}->[0]}) {
         $self->{'locatorlist'}->{$list->{$descriptor}->[0]}->{'title'} = $list->{$descriptor}->[1];