From d901cc916102f1aaccfb73396b48aa303e5b8cd7 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Thu, 14 May 2009 23:47:17 +0100
Subject: Add support for zerofree command.

---
 perl/Guestfs.xs         | 11 +++++++++++
 perl/lib/Sys/Guestfs.pm | 13 +++++++++++++
 2 files changed, 24 insertions(+)

(limited to 'perl')

diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs
index 973f56e5..e87131bd 100644
--- a/perl/Guestfs.xs
+++ b/perl/Guestfs.xs
@@ -1787,3 +1787,14 @@ PREINIT:
  OUTPUT:
       RETVAL
 
+void
+zerofree (g, device)
+      guestfs_h *g;
+      char *device;
+PREINIT:
+      int r;
+ PPCODE:
+      r = guestfs_zerofree (g, device);
+      if (r == -1)
+        croak ("zerofree: %s", guestfs_last_error (g));
+
diff --git a/perl/lib/Sys/Guestfs.pm b/perl/lib/Sys/Guestfs.pm
index 13c084f7..b11594f2 100644
--- a/perl/lib/Sys/Guestfs.pm
+++ b/perl/lib/Sys/Guestfs.pm
@@ -1162,6 +1162,19 @@ How many blocks are zeroed isn't specified (but it's I<not> enough
 to securely wipe the device).  It should be sufficient to remove
 any partition tables, filesystem superblocks and so on.
 
+=item $h->zerofree ($device);
+
+This runs the I<zerofree> program on C<device>.  This program
+claims to zero unused inodes and disk blocks on an ext2/3
+filesystem, thus making it possible to compress the filesystem
+more effectively.
+
+You should B<not> run this program if the filesystem is
+mounted.
+
+It is possible that using this program can damage the filesystem
+or data on the filesystem.
+
 =cut
 
 1;
-- 
cgit