diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-09-15 13:11:45 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-09-15 13:11:45 +0100 |
| commit | b0cefb417d01c6dcb87cc6bafe9c19b98c690c9d (patch) | |
| tree | 8c793f1dabf571bbf5c2b6b0f77483bf8d5af392 /generator | |
| parent | 90b7c53b70dda9a131cf13beb5d1e77cc41534f7 (diff) | |
| download | libguestfs-b0cefb417d01c6dcb87cc6bafe9c19b98c690c9d.tar.gz libguestfs-b0cefb417d01c6dcb87cc6bafe9c19b98c690c9d.tar.xz libguestfs-b0cefb417d01c6dcb87cc6bafe9c19b98c690c9d.zip | |
syntax: Use STREQ/STRNEQ in place of strcmp.
Found by 'make syntax-check'.
Diffstat (limited to 'generator')
| -rw-r--r-- | generator/perl.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generator/perl.ml b/generator/perl.ml index 11405988..0bd36a15 100644 --- a/generator/perl.ml +++ b/generator/perl.ml @@ -47,6 +47,8 @@ let rec generate_perl_xs () = #include <guestfs.h> +#define STREQ(a,b) (strcmp((a),(b)) == 0) + static SV * my_newSVll(long long val) { #ifdef USE_64_BIT_ALL @@ -434,7 +436,7 @@ user_cancel (g) fun argt -> let n = name_of_optargt argt in let uc_n = String.uppercase n in - pr "if (strcmp (this_arg, \"%s\") == 0) {\n" n; + pr "if (STREQ (this_arg, \"%s\")) {\n" n; (match argt with | OBool _ | OInt _ -> |