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

diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs
index 08b55b8..7b923f6 100644
--- a/perl/Guestfs.xs
+++ b/perl/Guestfs.xs
@@ -2523,3 +2523,14 @@ 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));
+