commit 73c0d8bddacf436b3501064bb2e2656fa60a5c05
Author: Adam Osuchowski <[email protected]>
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

_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit

Reply via email to