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);
|
