[perl-Crypt-OpenSSL-X509/el5/master] added missing patch

Wes Hardaker hardaker at fedoraproject.org
Thu Jan 13 22:04:53 UTC 2011


commit 0ccff410977c0e8de4e1921e3f74a6de07014776
Author: Wes Hardaker <opensource at hardakers.net>
Date:   Thu Jan 13 14:04:14 2011 -0800

    added missing patch

 .gitignore                                  |    1 -
 perl-Crypt-OpenSSL-X509-fixed-in-base.patch |   45 +++++++++++++++++++++++++++
 2 files changed, 45 insertions(+), 1 deletions(-)
---
diff --git a/.gitignore b/.gitignore
index d783f0a..f751596 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,4 +1,3 @@
 Crypt-OpenSSL-X509-0.7.tar.gz
 /Crypt-OpenSSL-X509-1.4.tar.gz
-/perl-Crypt-OpenSSL-X509-fixed-in-base.patch
 /Crypt-OpenSSL-X509-1.6.tar.gz
diff --git a/perl-Crypt-OpenSSL-X509-fixed-in-base.patch b/perl-Crypt-OpenSSL-X509-fixed-in-base.patch
new file mode 100644
index 0000000..d378dc8
--- /dev/null
+++ b/perl-Crypt-OpenSSL-X509-fixed-in-base.patch
@@ -0,0 +1,45 @@
+--- t/x509.t.~1~	2010-08-31 07:13:00.000000000 -0700
++++ t/x509.t	2010-09-09 16:52:38.761228812 -0700
+@@ -18,11 +18,7 @@
+ 
+ # For some reason the hash hash changed with v1.0.0
+ # Verified with the openssl binary.
+-if (Crypt::OpenSSL::X509::OPENSSL_VERSION_NUMBER >= 0x1000000f) {
+-  ok($x509->hash() eq '24ad0b63', 'hash()');
+-} else {
+-  ok($x509->hash() eq '2edf7016', 'hash()');
+-}
++ok($x509->hash() eq '24ad0b63', 'hash()');
+ 
+ ok($x509 = Crypt::OpenSSL::X509->new_from_file('certs/thawte.pem'), 'new_from_file()');
+ 
+--- t/utf8.t.fixed-in-base        2010-08-31 07:11:26.000000000 -0700
++++ t/utf8.t      2010-09-09 17:25:25.411354644 -0700
+@@ -1,5 +1,5 @@
+ 
+-use Test::More tests => 11;
++use Test::More tests => 8;
+ use Encode;
+ 
+ binmode(STDOUT, ":utf8");
+@@ -36,19 +36,4 @@
+ ok(utf8::is_utf8($sub), "subject is really an utf8 string");
+ is($sub, $sub_ok, "utf8 subject as expected");
+ 
+-
+-######  and a broken UTF8 cert #####
+-
+-# OpenSSL v1.0.0 (and higher?) fails to read this cert.
+-SKIP: {
+-  skip "OpenSSL v1.0.0 can't read broken certs.", 3 if Crypt::OpenSSL::X509::OPENSSL_VERSION_NUMBER >= 0x1000000f;
+-
+-  ok($x509 = Crypt::OpenSSL::X509->new_from_file('certs/broken-utf8.pem'), 'new_from_file()');
+-  $sub = $x509->subject();
+-  Dump($sub) if ($debug);
+-
+-  ok(utf8::is_utf8($sub), "subject is utf8");
+-  is($sub, "C=PL, ST=mazowieckie, L=Warszawa, O=D.A.S. Towarzystwo Ubezpieczen Ochrony Prawnej S.A., OU=Dzi\x{fffd} Informatyki, CN=das.pl", "utf8 subject as expected");
+-};
+-
+ 0;
+



More information about the perl-devel mailing list