diff options
| -rw-r--r-- | generator/generator_perl.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/generator/generator_perl.ml b/generator/generator_perl.ml index e2ec254b..f42bc879 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 "; |