diff options
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Guestfs.xs | 11 | ||||
| -rw-r--r-- | perl/lib/Sys/Guestfs.pm | 4 |
2 files changed, 15 insertions, 0 deletions
diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs index 08b55b81..7b923f6a 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)); + diff --git a/perl/lib/Sys/Guestfs.pm b/perl/lib/Sys/Guestfs.pm index f8e6b774..445d9b8b 100644 --- a/perl/lib/Sys/Guestfs.pm +++ b/perl/lib/Sys/Guestfs.pm @@ -1111,6 +1111,10 @@ This displays the partition table on C<device>, in the human-readable output of the L<sfdisk(8)> command. It is not intended to be parsed. +=item $h->sleep ($secs); + +Sleep for C<secs> seconds. + =item %statbuf = $h->stat ($path); Returns file information for the given C<path>. |