X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=perl%2FGuestfs.xs;h=e1da744b45976b8dce721967edc6676ab055d7c8;hp=f19ea1a15aa700e74fb3d683c1fa1b600d76734f;hb=da8ddb2745c3d53c36e3ad7f09836a4c27a4d3e6;hpb=662617ae725c5e41c24128a037060419fbe4b026

diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs
index f19ea1a..e1da744 100644
--- a/perl/Guestfs.xs
+++ b/perl/Guestfs.xs
@@ -2843,3 +2843,38 @@ PREINIT:
       if (r == -1)
         croak ("mount_loop: %s", guestfs_last_error (g));
 
+void
+mkswap (g, device)
+      guestfs_h *g;
+      char *device;
+PREINIT:
+      int r;
+ PPCODE:
+      r = guestfs_mkswap (g, device);
+      if (r == -1)
+        croak ("mkswap: %s", guestfs_last_error (g));
+
+void
+mkswap_L (g, label, device)
+      guestfs_h *g;
+      char *label;
+      char *device;
+PREINIT:
+      int r;
+ PPCODE:
+      r = guestfs_mkswap_L (g, label, device);
+      if (r == -1)
+        croak ("mkswap_L: %s", guestfs_last_error (g));
+
+void
+mkswap_U (g, uuid, device)
+      guestfs_h *g;
+      char *uuid;
+      char *device;
+PREINIT:
+      int r;
+ PPCODE:
+      r = guestfs_mkswap_U (g, uuid, device);
+      if (r == -1)
+        croak ("mkswap_U: %s", guestfs_last_error (g));
+