[packages/perl-Crypt-OpenSSL-PKCS10] - utf8 support for subject - rel up

[adwol]

commit 73c0d8bddacf436b3501064bb2e2656fa60a5c05
Author: Adam Osuchowski <adwol at pld-linux.org>
Date:   Mon Jul 20 23:23:10 2015 +0200

    - utf8 support for subject
    - rel up

 perl-Crypt-OpenSSL-PKCS10-utf8_support.patch | 41 ++++++++++++++++++++++++++++
 perl-Crypt-OpenSSL-PKCS10.spec               |  4 ++-
 2 files changed, 44 insertions(+), 1 deletion(-)
---
diff --git a/perl-Crypt-OpenSSL-PKCS10.spec b/perl-Crypt-OpenSSL-PKCS10.spec
index 1d79773..4d03b81 100644
--- a/perl-Crypt-OpenSSL-PKCS10.spec
+++ b/perl-Crypt-OpenSSL-PKCS10.spec
@@ -8,11 +8,12 @@
 Summary:	Crypt::OpenSSL::PKCS10 - Perl extension to OpenSSL's PKCS10 API
 Name:		perl-%{pdir}-%{pnam}
 Version:	0.14
-Release:	1
+Release:	2
 License:	GPL v1+ or Artistic
 Group:		Development/Languages/Perl
 Source0:	http://www.cpan.org/modules/by-module/%{pdir}/%{pdir}-%{pnam}-%{version}.tar.gz
 # Source0-md5:	3e0df0a318a037d9a7c4cb77391a6c5c
+Patch0:		%{name}-utf8_support.patch
 URL:		http://search.cpan.org/dist/Crypt-OpenSSL-PKCS10/
 BuildRequires:	perl-devel >= 1:5.8.0
 BuildRequires:	rpm-perlprov >= 4.1-13
@@ -28,6 +29,7 @@ certificate requests using RSA key pairs.
 
 %prep
 %setup -q -n %{pdir}-%{pnam}-%{version}
+%patch0 -p1
 
 rm -rf inc/Module/Install inc/Module/Install.pm
 
diff --git a/perl-Crypt-OpenSSL-PKCS10-utf8_support.patch b/perl-Crypt-OpenSSL-PKCS10-utf8_support.patch
new file mode 100644
index 0000000..508fc4a
--- /dev/null
+++ b/perl-Crypt-OpenSSL-PKCS10-utf8_support.patch
@@ -0,0 +1,41 @@
+diff -ruN Crypt-OpenSSL-PKCS10-0.14.orig/PKCS10.pm Crypt-OpenSSL-PKCS10-0.14/PKCS10.pm
+--- Crypt-OpenSSL-PKCS10-0.14.orig/PKCS10.pm	2014-09-16 20:49:27.000000000 +0200
++++ Crypt-OpenSSL-PKCS10-0.14/PKCS10.pm	2015-07-20 23:02:46.190862357 +0200
+@@ -96,10 +96,11 @@
+ 
+ =over 2
+ 
+-=item set_subject($subject)
++=item set_subject($subject, [ $utf8 ])
+ 
+ Sets the subject DN of the request.
+-Note: $subject is expected to be in the format /type0=value0/type1=value1/type2=... where characters may be escaped by \
++Note: $subject is expected to be in the format /type0=value0/type1=value1/type2=... where characters may be escaped by \.
++If $utf8 is non-zero integer, $subject is interpreted as UTF-8 string.
+ 
+ =item add_ext($nid, $extension)
+ 
+diff -ruN Crypt-OpenSSL-PKCS10-0.14.orig/PKCS10.xs Crypt-OpenSSL-PKCS10-0.14/PKCS10.xs
+--- Crypt-OpenSSL-PKCS10-0.14.orig/PKCS10.xs	2014-09-16 20:48:21.000000000 +0200
++++ Crypt-OpenSSL-PKCS10-0.14/PKCS10.xs	2015-07-20 23:00:17.113517886 +0200
+@@ -477,9 +477,10 @@
+ 	RETVAL
+ 
+ int
+-set_subject(pkcs10, subj_SV)
++set_subject(pkcs10, subj_SV, utf8 = 0)
+ 	pkcs10Data *pkcs10;
+ 	SV* subj_SV;
++	int utf8;
+ 
+ 	PREINIT:
+ 	unsigned char* subj;
+@@ -488,7 +489,7 @@
+ 	CODE:
+ 	subj = SvPV(subj_SV, subj_length);
+ 
+-	RETVAL = build_subject(pkcs10->req, subj, MBSTRING_ASC, 0);
++	RETVAL = build_subject(pkcs10->req, subj, utf8 ? MBSTRING_UTF8 : MBSTRING_ASC, 0);
+ 	if (!RETVAL)
+ 		croak ("build_subject");
+ 
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-Crypt-OpenSSL-PKCS10.git/commitdiff/73c0d8bddacf436b3501064bb2e2656fa60a5c05