[perl-ldap-checkins] CVS: sasl/t digest_md5.t,1.1,1.2

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

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

Modified Files:
	digest_md5.t 
Log Message:
Avoid used only once warning

Index: digest_md5.t
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/t/digest_md5.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- digest_md5.t	19 May 2003 16:06:04 -0000	1.1
+++ digest_md5.t	19 May 2003 21:40:30 -0000	1.2
@@ -33,6 +33,7 @@
 my $sparams = 'realm="elwood.innosoft.com",nonce="OA6MG9tEQGm2hh",qop="auth",algorithm=md5-sess,charset=utf-8';
 # override for testing as by default it uses $$, time and rand
 $Authen::SASL::Perl::DIGEST_MD5::CNONCE = "foobar";
+$Authen::SASL::Perl::DIGEST_MD5::CNONCE = "foobar"; # avoid used only once warning
 my $initial = $conn->client_step($sparams);
 
 $initial eq 'charset=utf-8,cnonce="3858f62230ac3c915f300c664312c63f",digest-uri="ldap/localhost",nc=00000001,nonce="OA6MG9tEQGm2hh",qop="auth",realm="elwood.innosoft.com",response=9c81619e12f61fb2eed6bc8ed504ad28,username="gbarr"'