[perl-ldap-checkins] CVS: ldap/t common.pl,1.6,1.7

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

Update of /cvsroot/perl-ldap/ldap/t
In directory sc8-pr-cvs1:/tmp/cvs-serv11289/t

Modified Files:
	common.pl 
Log Message:
Some tweaks to the test harnes so we can use OpenLDAP 2.1


Index: common.pl
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/t/common.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- common.pl	8 May 2003 19:46:23 -0000	1.6
+++ common.pl	9 May 2003 11:58:04 -0000	1.7
@@ -12,6 +12,8 @@
   # Where to put temporary files while testing
   # the Makefile is setup to delete temp/ when make clean is run
   $TEMPDIR  = "./temp";
+  $SCHEMA_DIR ||= "./data";
+  $SLAPD_DB ||= 'ldbm';
 
   $TESTDB   = "$TEMPDIR/test-db";
   $CONF     = "$TEMPDIR/conf";
@@ -72,7 +74,7 @@
     open(CONFI,"<$CONF_IN") or die "$!";
     open(CONFO,">$CONF") or die "$!";
     while(<CONFI>) {
-      s/\$(\w+)/${$1}/g;
+      s/\$([A-Z]\w*)/${$1}/g;
       s/^TLS/#TLS/ unless $SSL_PORT;
       s/^(sasl.*)/#\1/ unless $SASL;
       print CONFO;