X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=perl%2FGuestfs.xs;h=c26faa16b361d9e0fc8d5ed965a9a155928bf8cf;hp=08b55b814f302f2621de45640cf5362683b2950c;hb=460d139e6a52da67a4f1947035b1978610349f78;hpb=d1a1ab972bb22f4c38a21fcc73f81650aaa03b4e

diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs
index 08b55b8..c26faa1 100644
--- a/perl/Guestfs.xs
+++ b/perl/Guestfs.xs
@@ -2523,3 +2523,29 @@ PREINIT:
       if (r == -1)
         croak ("e2fsck_f: %s", guestfs_last_error (g));
 
+void
+sleep (g, secs)
+      guestfs_h *g;
+      int secs;
+PREINIT:
+      int r;
+ PPCODE:
+      r = guestfs_sleep (g, secs);
+      if (r == -1)
+        croak ("sleep: %s", guestfs_last_error (g));
+
+SV *
+ntfs_3g_probe (g, rw, device)
+      guestfs_h *g;
+      int rw;
+      char *device;
+PREINIT:
+      int status;
+   CODE:
+      status = guestfs_ntfs_3g_probe (g, rw, device);
+      if (status == -1)
+        croak ("ntfs_3g_probe: %s", guestfs_last_error (g));
+      RETVAL = newSViv (status);
+ OUTPUT:
+      RETVAL
+