forked from pool/perl-Crypt-OpenSSL-RSA
12 lines
419 B
Diff
12 lines
419 B
Diff
--- RSA.xs
|
|
+++ RSA.xs
|
|
@@ -40,7 +40,7 @@
|
|
|
|
#define CHECK_OPEN_SSL(p_result) if (!(p_result)) croakSsl(__FILE__, __LINE__);
|
|
|
|
-#define PACKAGE_CROAK(p_message) croak("%s:%d: %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"); }
|