mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-07-16 12:45:18 +03:00
26 lines
481 B
Diff
26 lines
481 B
Diff
--- a/pocaml_c.c
|
|
+++ b/pocaml_c.c
|
|
@@ -676,11 +676,13 @@
|
|
static inline void
|
|
check_perl_failure ()
|
|
{
|
|
+ CAMLparam0 ();
|
|
+ CAMLlocal1 (errv);
|
|
+
|
|
SV *errsv = get_sv ("@", TRUE);
|
|
|
|
if (SvTRUE (errsv)) /* Equivalent of $@ in Perl. */
|
|
{
|
|
- CAMLlocal1 (errv);
|
|
STRLEN n_a;
|
|
const char *err = SvPV (errsv, n_a);
|
|
|
|
@@ -688,6 +688,8 @@
|
|
|
|
caml_raise_with_arg (*caml_named_value ("pocaml_perl_failure"), errv);
|
|
}
|
|
+
|
|
+ CAMLreturn0;
|
|
}
|
|
|
|
CAMLprim value
|