Author: tmraz
Update of /cvs/pkgs/rpms/perl-Crypt-OpenSSL-X509/devel
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv21616
Modified Files:
perl-Crypt-OpenSSL-X509-openssl.patch
Log Message:
- I have no idea how perl XS works
perl-Crypt-OpenSSL-X509-openssl.patch:
X509.xs | 21 ++++++++++++++++++++-
1 file changed, 20 insertions(+), 1 deletion(-)
Index: perl-Crypt-OpenSSL-X509-openssl.patch
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Crypt-OpenSSL-X509/devel/perl-Crypt-OpenSSL-X509-openssl.patch,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- perl-Crypt-OpenSSL-X509-openssl.patch 25 Aug 2009 19:42:22 -0000 1.1
+++ perl-Crypt-OpenSSL-X509-openssl.patch 25 Aug 2009 20:13:31 -0000 1.2
@@ -1,24 +1,24 @@
diff -up Crypt-OpenSSL-X509-0.7/X509.xs.openssl Crypt-OpenSSL-X509-0.7/X509.xs
--- Crypt-OpenSSL-X509-0.7/X509.xs.openssl 2008-02-23 23:18:11.000000000 +0100
-+++ Crypt-OpenSSL-X509-0.7/X509.xs 2009-08-25 21:40:15.000000000 +0200
++++ Crypt-OpenSSL-X509-0.7/X509.xs 2009-08-25 22:12:33.000000000 +0200
@@ -252,12 +252,19 @@ accessor(x509)
} else if (ix == 7) {
int j;
-+#if OPENSSL_VERSION_NUMBER >= 0x10000000L
++ #if OPENSSL_VERSION_NUMBER >= 0x10000000L
+ STACK_OF(OPENSSL_STRING) *emlst = X509_get1_email(x509);
+
+ for (j = 0; j < sk_OPENSSL_STRING_num(emlst); j++) {
+ BIO_printf(bio, "%s", sk_OPENSSL_STRING_value(emlst, j));
+ }
-+#else
++ #else
STACK *emlst = X509_get1_email(x509);
for (j = 0; j < sk_num(emlst); j++) {
BIO_printf(bio, "%s", sk_value(emlst, j));
}
-
-+#endif
++ #endif
X509_email_free(emlst);
}
@@ -26,7 +26,7 @@ diff -up Crypt-OpenSSL-X509-0.7/X509.xs.
} else if (format == FORMAT_NETSCAPE) {
-+#if OPENSSL_VERSION_NUMBER >= 0x10000000L
++ #if OPENSSL_VERSION_NUMBER >= 0x10000000L
+ NETSCAPE_X509 nx;
+ ASN1_OCTET_STRING hdr;
+
@@ -36,7 +36,7 @@ diff -up Crypt-OpenSSL-X509-0.7/X509.xs.
+ nx.cert = x509;
+
+ ASN1_item_i2d_bio(ASN1_ITEM_rptr(NETSCAPE_X509), bio, &nx);
-+#else
++ #else
ASN1_HEADER ah;
ASN1_OCTET_STRING os;
@@ -44,7 +44,7 @@ diff -up Crypt-OpenSSL-X509-0.7/X509.xs.
ah.meth = X509_asn1_meth();
ASN1_i2d_bio(i2d_ASN1_HEADER, bio, (unsigned char *)&ah);
-+#endif
++ #endif
}
RETVAL = sv_bio_final(bio);
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
Fedora-perl-devel-list mailing list
Fedora-perl-devel-list@xxxxxxxxxx
https://www.redhat.com/mailman/listinfo/fedora-perl-devel-list
