[perl-ldap-checkins] CVS: ldap/t common.pl,1.8,1.9

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

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