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

diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs
index 7b923f6..c26faa1 100644
--- a/perl/Guestfs.xs
+++ b/perl/Guestfs.xs
@@ -2534,3 +2534,18 @@ PREINIT:
       if (r == -1)
         croak ("sleep: %s", guestfs_last_error (g));
 
+SV *
+ntfs_3g_probe (g, rw, device)
+      guestfs_h *g;
+      int rw;
+      char *device;
+PREINIT:
+      int status;
+   CODE:
+      status = guestfs_ntfs_3g_probe (g, rw, device);
+      if (status == -1)
+        croak ("ntfs_3g_probe: %s", guestfs_last_error (g));
+      RETVAL = newSViv (status);
+ OUTPUT:
+      RETVAL
+