When calling croak on failure in the Perl code for RLenValue, add the
%s placeholder for the strerror result. This makes the croak call just
like all the others.
Fixes commit 87e1be8ff3431ac81d721d5f647fc85d02e045dc.
---
generator/generator.ml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/generator/generator.ml b/generator/generator.ml
index 0401217..f2cb627 100755
--- a/generator/generator.ml
+++ b/generator/generator.ml
@@ -2743,7 +2743,7 @@ DESTROY (h)
name (String.concat ", " c_params);
free_args ();
pr " if (r == 0 && errno)\n";
- pr " croak (\"%%s: \", \"%s\", strerror
(errno));\n"
+ pr " croak (\"%%s: %%s\", \"%s\", strerror
(errno));\n"
name;
pr " EXTEND (SP, 2);\n";
pr " PUSHs (sv_2mortal (newSViv (len)));\n";
--
2.20.1