Changeset 3413
- Timestamp:
- 2002-09-03T18:19:33+12:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZCompactList.pm
r3306 r3413 400 400 { 401 401 $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; 403 404 if ($metavalue =~ m/^$resafe_node_name$/i) 404 405 {
Note:
See TracChangeset
for help on using the changeset viewer.