From: Richard W.M. Jones Date: Fri, 15 Jul 2011 13:47:09 +0000 (+0100) Subject: perl: Add binding for guestfs_user_cancel. X-Git-Tag: 1.11.18~4 X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=f4dadd0fcfe41b9cc6fcd6097c4c3cf509d69879;p=libguestfs.git perl: Add binding for guestfs_user_cancel. --- diff --git a/generator/generator_perl.ml b/generator/generator_perl.ml index e2ec254..f42bc87 100644 --- a/generator/generator_perl.ml +++ b/generator/generator_perl.ml @@ -277,6 +277,12 @@ PREINIT: OUTPUT: RETVAL +void +user_cancel (g) + guestfs_h *g; + PPCODE: + guestfs_user_cancel (g); + "; List.iter ( @@ -776,6 +782,11 @@ errnos: # mkdir failed because the directory exists already. } +=item $h->user_cancel (); + +Cancel current transfer. This is safe to call from Perl signal +handlers and threads. + =cut ";