summaryrefslogtreecommitdiffstats
path: root/perl/Guestfs.xs
diff options
context:
space:
mode:
authorRichard W.M. Jones <rjones@redhat.com>2009-06-24 18:25:09 +0100
committerRichard W.M. Jones <rjones@redhat.com>2009-06-24 18:25:09 +0100
commit0574eab8bc7d8e72db862ec36815835938a5fdf1 (patch)
tree6588315e33f95de9fbb150f862064471a975050e /perl/Guestfs.xs
parent8228eec99045ae720d8ef35851aa8c278f6b4e5c (diff)
downloadlibguestfs-0574eab8bc7d8e72db862ec36815835938a5fdf1.tar.gz
libguestfs-0574eab8bc7d8e72db862ec36815835938a5fdf1.tar.xz
libguestfs-0574eab8bc7d8e72db862ec36815835938a5fdf1.zip
Generated code for 'mkdtemp' command.
Diffstat (limited to 'perl/Guestfs.xs')
-rw-r--r--perl/Guestfs.xs15
1 files changed, 15 insertions, 0 deletions
diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs
index 4b059101..96b02f9b 100644
--- a/perl/Guestfs.xs
+++ b/perl/Guestfs.xs
@@ -2635,3 +2635,18 @@ PREINIT:
if (r == -1)
croak ("scrub_freespace: %s", guestfs_last_error (g));
+SV *
+mkdtemp (g, template)
+ guestfs_h *g;
+ char *template;
+PREINIT:
+ char *dir;
+ CODE:
+ dir = guestfs_mkdtemp (g, template);
+ if (dir == NULL)
+ croak ("mkdtemp: %s", guestfs_last_error (g));
+ RETVAL = newSVpv (dir, 0);
+ free (dir);
+ OUTPUT:
+ RETVAL
+