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"'
|
