[Libguestfs] [hivex PATCH] perl: fix format of croak for RLenValue

Pino Toscano ptoscano at redhat.com
Wed Jan 16 17:52:30 UTC 2019


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




More information about the Libguestfs mailing list