X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=virt-top%2Fvirt_top_csv.ml;h=e048856518cd73e8732e0aef91378ef4999e59f9;hp=8f8c45d8464ead7e24cb78afec51de519554480f;hb=067b868b9cce7620774d7fb57dac6fd8df45d8df;hpb=3126bfee333b5c635dc60a54265936af06117f6a

diff --git a/virt-top/virt_top_csv.ml b/virt-top/virt_top_csv.ml
old mode 100755
new mode 100644
index 8f8c45d..e048856
--- a/virt-top/virt_top_csv.ml
+++ b/virt-top/virt_top_csv.ml
@@ -1,5 +1,5 @@
 (* 'top'-like tool for libvirt domains.
-   (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
+   (C) Copyright 2007-2009 Richard W.M. Jones, Red Hat Inc.
    http://libvirt.org/
 
    This program is free software; you can redistribute it and/or modify
@@ -19,6 +19,8 @@
    This file contains all code which requires CSV support.
 *)
 
+open Virt_top_gettext.Gettext
+
 (* Output channel, or None if CSV output not enabled. *)
 let chan = ref None ;;