diff options
Diffstat (limited to 'perl/Guestfs.xs')
| -rw-r--r-- | perl/Guestfs.xs | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs index bcd7304f..6980bdac 100644 --- a/perl/Guestfs.xs +++ b/perl/Guestfs.xs @@ -2770,3 +2770,31 @@ PREINIT: } free (lines); +SV * +df (g) + guestfs_h *g; +PREINIT: + char *output; + CODE: + output = guestfs_df (g); + if (output == NULL) + croak ("df: %s", guestfs_last_error (g)); + RETVAL = newSVpv (output, 0); + free (output); + OUTPUT: + RETVAL + +SV * +df_h (g) + guestfs_h *g; +PREINIT: + char *output; + CODE: + output = guestfs_df_h (g); + if (output == NULL) + croak ("df_h: %s", guestfs_last_error (g)); + RETVAL = newSVpv (output, 0); + free (output); + OUTPUT: + RETVAL + |