You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by jo...@apache.org on 2003/07/28 17:39:07 UTC
cvs commit: httpd-test/perl-framework/t/ssl env.t
jorton 2003/07/28 08:39:07
Modified: perl-framework/t/ssl env.t
Log:
Cope with mod_ssl using a name for the email attribute which is
different to that which might be expected if using OpenSSL 0.9.7.
Revision Changes Path
1.8 +5 -0 httpd-test/perl-framework/t/ssl/env.t
Index: env.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/env.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -u -r1.7 -r1.8
--- env.t 2 Apr 2002 17:56:03 -0000 1.7
+++ env.t 28 Jul 2003 15:39:06 -0000 1.8
@@ -40,6 +40,11 @@
my($env, $expect, $ne) = @_;
while (my($key, $val) = each %$expect) {
+ # the emailAddress attribute is still exported using the name
+ # _DN_Email by mod_ssl, even when using OpenSSL 0.9.7.
+ if ($key =~ /(.*)_emailAddress/) {
+ $key = $1 . "_Email";
+ }
if (Apache::TestConfig::WIN32) {
#perl uppercases all %ENV keys
#which causes SSL_*_DN_Email lookups to fail