Add gettext support for OCaml tools (virt-resize, virt-sparsify, virt-sysprep).

Note that this support is optional: To enable it, install the
ocaml-gettext library from
http://forge.ocamlcore.org/projects/ocaml-gettext .  If this library
is not installed, then configure detects this and inserts dummy
gettext functions that do nothing.

1 files changed, 4 insertions, 3 deletions

diff --git a/sysprep/sysprep_operation_udev_persistent_net.ml b/sysprep/sysprep_operation_udev_persistent_net.ml
index 95133d1f..6de2589e 100644
--- a/sysprep/sysprep_operation_udev_persistent_net.ml
+++ b/sysprep/sysprep_operation_udev_persistent_net.ml
@@ -17,6 +17,7 @@
  *)
 
 open Sysprep_operation
+open Sysprep_gettext.Gettext
 
 module G = Guestfs
 
@@ -32,15 +33,15 @@ let udev_persistent_net_perform g root =
 let udev_persistent_net_op = {
   name = "udev-persistent-net";
   enabled_by_default = true;
-  heading = "Remove udev persistent net rules";
-  pod_description = Some "\
+  heading = s_"Remove udev persistent net rules";
+  pod_description = Some (s_"\
 Remove udev persistent net rules which map the guest's existing MAC
 address to a fixed ethernet device (eg. eth0).
 
 After a guest is cloned, the MAC address usually changes.  Since the
 old MAC address occupies the old name (eg. eth0), this means the fresh
 MAC address is assigned to a new name (eg. eth1) and this is usually
-undesirable.  Erasing the udev persistent net rules avoids this.";
+undesirable.  Erasing the udev persistent net rules avoids this.");
   extra_args = [];
   perform = udev_persistent_net_perform;
 }