commit 0ccff410977c0e8de4e1921e3f74a6de07014776
Author: Wes Hardaker <opensource@xxxxxxxxxxxxx>
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;
+
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
