forked from pool/perl-Crypt-OpenSSL-RSA
39520a916a
Copy from devel:languages:perl/perl-Crypt-OpenSSL-RSA based on submit request 36928 from user computersalat OBS-URL: https://build.opensuse.org/request/show/36928 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Crypt-OpenSSL-RSA?expand=0&rev=5
12 lines
489 B
Diff
12 lines
489 B
Diff
--- RSA.xs.orig 2009-11-22 18:38:26.000000000 +0000
|
|
+++ RSA.xs 2010-04-04 20:38:46.685992188 +0000
|
|
@@ -40,7 +40,7 @@
|
|
|
|
#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"); }
|