The following patch fixes it for me.
I found the fix on upstreams CVS:
http://tinyca.dyndns.org/cvs-bin/viewcvs.cgi/lib/OpenSSL.pm.diff?r1=1.7&r2=1.9&diff_format=h&cvsroot=TinyCA2
diff -u -r1.7 -r1.9
--- lib/OpenSSL.pm 2006/02/16 21:18:43 1.7
+++ lib/OpenSSL.pm 2006/04/13 14:14:40 1.9
@@ -1,6 +1,6 @@
# Copyright (c) Stephan Martin <[EMAIL PROTECTED]>
#
-# $Id: OpenSSL.pm,v 1.7 2006/02/16 21:18:43 sm Exp $
+# $Id: OpenSSL.pm,v 1.9 2006/04/13 14:14:40 sm Exp $
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -41,18 +41,16 @@
my $v = <TEST>;
close(TEST);
- if($v =~ /0.9.6/) {
- $self->{'version'} = "0.9.6";
- } elsif ($v =~ /0.9.7/) {
- $self->{'version'} = "0.9.7";
- } elsif ($v =~ /0.9.8/) {
- $self->{'version'} = "0.9.8";
+ # set version (format: e.g. 0.9.7 or 0.9.7a)
+ if($v =~ /\b(0\.9\.[678][a-z]?)\b/) {
+ $self->{'version'} = $1;
}
- if($v =~ /0.9.7f/ || $v =~ /0.9.7g/ || $v =~ /0.9.7h/) {
- $self->{'broken'} = 0;
- } else {
- $self->{'broken'} = 1;
+ # CRL output was broken before openssl 0.9.7f
+ if($v =~ /\b0\.9\.[0-6][a-z]?\b/ || $v =~ /\b0\.9\.7[a-e]?\b/) {
+ $self->{'broken'} = 1;
+ } else {
+ $self->{'broken'} = 0;
}
bless($self, $class);
/Andreas Sundstrom
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
