Changeset 7572


Ignore:
Timestamp:
2004-06-09T11:43:48+12:00 (20 years ago)
Author:
mdewsnip
Message:

Changed regular expression so lines entirely in UTF-8 are still read in and processed.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/classify/Hierarchy.pm

    r7497 r7572  
    149149   
    150150    # read in the subject file
    151     my $list = &cfgread::read_cfg_file ($self->{'subjectfile'}, undef, '^[^#]?\w');
     151    my $list = &cfgread::read_cfg_file ($self->{'subjectfile'}, undef, '^[^#]?\S');
    152152    # $list is a hash that is indexed by the descriptor. The contents of this
    153153    # hash is a list of two items. The first item is the OID and the second item
Note: See TracChangeset for help on using the changeset viewer.