[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Schema.pm,1.12,1.13

[Graham B. <gb...@us...>]

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