[Libguestfs] [PATCH 1/2] perl: Don't prefix error messages with command name.

[Matthew Booth]

On 12/02/10 14:43, Richard W.M. Jones wrote:
>>From 26a2aa2a2b4440e170c51c7ee82cba31d65b78ea Mon Sep 17 00:00:00 2001
> From: Richard Jones <rjones at redhat.com>
> Date: Fri, 12 Feb 2010 13:42:57 +0000
> Subject: [PATCH 1/2] perl: Don't prefix error messages with command name.
> 
> The command name is already being added by the RPC stubs, so
> adding it again in Perl just results in doubled error messages
> like:
>   foo: foo: the error
> ---
>  src/generator.ml |   14 +++++++-------
>  1 files changed, 7 insertions(+), 7 deletions(-)
> 
> diff --git a/src/generator.ml b/src/generator.ml
> index 607b6d1..b0ffc58 100755
> --- a/src/generator.ml
> +++ b/src/generator.ml
> @@ -8149,7 +8149,7 @@ DESTROY (g)
>             pr ";\n";
>             do_cleanups ();
>             pr "      if (r == -1)\n";
> -           pr "        croak (\"%s: %%s\", guestfs_last_error (g));\n" name;
> +           pr "        croak (\"%%s\", guestfs_last_error (g));\n";

If you search for guestfs_last_error in generator.ml, it looks like
there are more of these. Some examples:

8260:
  do_cleanups ();
  pr "      if (%s == NULL)\n" n;
  pr "        croak (\"%s: %%s\", guestfs_last_error (g));\n" name;

8304:
  do_cleanups ();
  pr "      if (%s == NULL)\n" n;
  pr "        croak (\"%s: %%s\", guestfs_last_error (g));\n" name;

10314:
      generate_call ();
      pr "      if (r %s)\n" (c_error_comparison ());
      pr "        throw new Error (\"%s: \" + guestfs_last_error
(_handle));\n"
        name;

Matt
-- 
Matthew Booth, RHCA, RHCSS
Red Hat Engineering, Virtualisation Team

M:       +44 (0)7977 267231
GPG ID:  D33C3490
GPG FPR: 3733 612D 2D05 5458 8A8A 1600 3441 EA19 D33C 3490