perl-Crypt-OpenSSL-RSA/Crypt-OpenSSL-RSA.patch

Index: RSA.xs
===================================================================
--- RSA.xs.orig	2009-11-22 19:38:26.000000000 +0100
+++ RSA.xs	2011-05-17 15:00:29.464115432 +0200
@@ -40,7 +40,7 @@ void croakSsl(char* p_file, int p_line)
 
 #define CHECK_OPEN_SSL(p_result) if (!(p_result)) croakSsl(__FILE__, __LINE__);
 
-#define PACKAGE_CROAK(p_message) croak("%s", (p_message))
+#define PACKAGE_CROAK(p_message) croak("%s:%d: %s", __FILE__, __LINE__, (p_message))
 #define CHECK_NEW(p_var, p_size, p_type) \
   if (New(0, p_var, p_size, p_type) == NULL) \
     { PACKAGE_CROAK("unable to alloc buffer"); }
Index: RSA.pm
===================================================================
--- RSA.pm.orig	2009-11-22 21:36:07.000000000 +0100
+++ RSA.pm	2011-05-17 15:00:45.753577558 +0200
@@ -6,7 +6,7 @@ use Carp;
 use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 
 require DynaLoader;
-require AutoLoader;
+use AutoLoader 'AUTOLOAD';
 
 @ISA = qw(DynaLoader);