diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2009-05-01 12:16:08 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2009-05-01 12:16:08 +0100 |
| commit | f47dafd23186938a22d41739d9bc695c7760b912 (patch) | |
| tree | a6e5bf03a63cae2eeca269505724ae5c5ba11020 /perl/Guestfs.xs | |
| parent | d9ea3e8d979c3ade1b21f27083788fd33fa3b1fa (diff) | |
| download | libguestfs-f47dafd23186938a22d41739d9bc695c7760b912.tar.gz libguestfs-f47dafd23186938a22d41739d9bc695c7760b912.tar.xz libguestfs-f47dafd23186938a22d41739d9bc695c7760b912.zip | |
Generated code for 'equal' command.
Diffstat (limited to 'perl/Guestfs.xs')
| -rw-r--r-- | perl/Guestfs.xs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs index af543ec0..d29d5a08 100644 --- a/perl/Guestfs.xs +++ b/perl/Guestfs.xs @@ -1682,3 +1682,18 @@ PREINIT: if (r == -1) croak ("ping_daemon: %s", guestfs_last_error (g)); +SV * +equal (g, file1, file2) + guestfs_h *g; + char *file1; + char *file2; +PREINIT: + int equality; + CODE: + equality = guestfs_equal (g, file1, file2); + if (equality == -1) + croak ("equal: %s", guestfs_last_error (g)); + RETVAL = newSViv (equality); + OUTPUT: + RETVAL + |