X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_perl.ml;h=f42bc8798dcd3b36e067765454a5bc6e34ba3aeb;hp=e2ec254bcf0b4a8eedf9216a0a2581246aff3d2e;hb=2ace9be4cd69e84cd88e5b0fd74de861a4973c91;hpb=3acf732c2f23d8508f692efb2b222169914bfcdc

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
 
 ";