Update of /cvsroot/perl-ldap/ldap/t
In directory sc8-pr-cvs1:/tmp/cvs-serv8009/t
Modified Files:
common.pl
Log Message:
change \1 to $1 in substitution
Index: common.pl
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/t/common.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- common.pl 9 May 2003 14:58:42 -0000 1.8
+++ common.pl 19 May 2003 21:50:42 -0000 1.9
@@ -77,7 +77,7 @@
while(<CONFI>) {
s/\$([A-Z]\w*)/${$1}/g;
s/^TLS/#TLS/ unless $SSL_PORT;
- s/^(sasl.*)/#\1/ unless $SASL;
+ s/^(sasl.*)/#$1/ unless $SASL;
print CONFO;
}
close(CONFI);
|
