From: Graham B. <gb...@us...> - 2002-01-23 13:25:33
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory usw-pr-cvs1:/tmp/cvs-serv12242/lib/Net/LDAP Modified Files: Schema.pm Log Message: Tweak the regexp that parses the elements to beter match qdstrings that contain ' Index: Schema.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Schema.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- Schema.pm 2001/12/19 22:27:58 1.12 +++ Schema.pm 2002/01/23 13:25:30 1.13 @@ -7,7 +7,7 @@ use strict; use vars qw($VERSION); -$VERSION = "0.11"; +$VERSION = "0.12"; # # Get schema from the server (or read from LDIF) and parse it into @@ -493,7 +493,7 @@ | "([^"]*)" | - '([^']*)' + '((?:[^']+|'[^\s)])*)' )\s*/xcg; die "Cannot parse [$val] ",substr($val,pos($val)) unless @tokens and pos($val) == length($val); |