diff options
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 + |