Changeset 3413 for trunk/gsdl/perllib


Ignore:
Timestamp:
2002-09-03T18:19:33+12:00 (22 years ago)
Author:
jrm21
Message:

Added "\" to the characters we need to escape for classifying.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3306 r3413  
    400400    {
    401401        $resafe_node_name = $node_name;
    402         $resafe_node_name =~ s/(\(|\)|\[|\]|\{|\}|\^|\$|\.|\+|\*|\?|\|)/\\$1/g;
     402        # escape chars that mean something to perl...
     403        $resafe_node_name =~ s/([\\\(\)\[\]\{\}\^\$\.\+\*\?\|])/\\$1/g;
    403404        if ($metavalue =~ m/^$resafe_node_name$/i)
    404405        {
Note: See TracChangeset for help on using the changeset viewer.