From cebe2462e1b45020842f441ab466242021d049fd Mon Sep 17 00:00:00 2001
From: Todd Rinaldo <toddr@cpan.org>
Date: Mon, 24 Sep 2018 16:26:49 -0500
Subject: [PATCH] Prefix internal bn2sv function so it doesn't collide with
 Net::SSLeay

Fixes https://github.com/toddr/Crypt-OpenSSL-RSA/issues/18
---
 Changes |  3 +++
 RSA.xs  | 18 +++++++++---------
 2 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/Changes b/Changes
index 800f41a..8ebc861 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Crypt::OpenSSL::RSA.
 
+0.32 ??
+    - Prefix internal bn2sv function so it doesn't collide with Net::SSLeay
+
 0.31 Mon Sep 24 2018
     - Remove default of SHA256 for RSA keys. This has caused significant
       problems with downstream modules and it has always been possible to
diff --git a/RSA.xs b/RSA.xs
index d474d11..6f54863 100644
--- a/RSA.xs
+++ b/RSA.xs
@@ -152,7 +152,7 @@ unsigned char* get_message_digest(SV* text_SV, int hash_method)
     }
 }
 
-SV* bn2sv(const BIGNUM* p_bn)
+SV* cor_bn2sv(const BIGNUM* p_bn)
 {
     return p_bn != NULL
         ? sv_2mortal(newSViv((IV) BN_dup(p_bn)))
@@ -467,14 +467,14 @@ PPCODE:
     RSA_get0_factors(rsa, &p, &q);
     RSA_get0_crt_params(rsa, &dmp1, &dmq1, &iqmp);
 #endif
-    XPUSHs(bn2sv(n));
-    XPUSHs(bn2sv(e));
-    XPUSHs(bn2sv(d));
-    XPUSHs(bn2sv(p));
-    XPUSHs(bn2sv(q));
-    XPUSHs(bn2sv(dmp1));
-    XPUSHs(bn2sv(dmq1));
-    XPUSHs(bn2sv(iqmp));
+    XPUSHs(cor_bn2sv(n));
+    XPUSHs(cor_bn2sv(e));
+    XPUSHs(cor_bn2sv(d));
+    XPUSHs(cor_bn2sv(p));
+    XPUSHs(cor_bn2sv(q));
+    XPUSHs(cor_bn2sv(dmp1));
+    XPUSHs(cor_bn2sv(dmq1));
+    XPUSHs(cor_bn2sv(iqmp));
 }
 
 SV*