X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=cmdline.ml;h=bab5768bde07153c274a68cfff52d55b28e20514;hb=d4df1eef1b3db3334eb5844f4b7f459c634325a2;hp=e0f244b153e4ca6110ab8e1a1b3a781628997e6b;hpb=73f1dc10b4279528818fe0fda33daf4c34488d21;p=guestfs-browser.git

diff --git a/cmdline.ml b/cmdline.ml
index e0f244b..bab5768 100644
--- a/cmdline.ml
+++ b/cmdline.ml
@@ -25,6 +25,10 @@ type cli_request =
   | Open_guest of string
   | Open_images of (string * string option) list
 
+let display_version () =
+  printf "%s %s\n" Config.package Config.version;
+  exit 0
+
 let format = ref None
 let images = ref []
 let guests = ref []
@@ -51,8 +55,8 @@ let argspec = Arg.align [
   "--format",  Arg.String set_format,     "format Set format";
   "-v",        Arg.Unit set_verbose_flag, " Enable debugging messages";
   "--verbose", Arg.Unit set_verbose_flag, " Enable debugging messages";
-  "-V",        Arg.Unit set_verbose_flag, " Display version and exit";
-  "--version", Arg.Unit set_verbose_flag, " Display version and exit";
+  "-V",        Arg.Unit display_version,  " Display version and exit";
+  "--version", Arg.Unit display_version,  " Display version and exit";
   "-x",        Arg.Unit set_trace_flag,   " Enable tracing of libguestfs calls";
 ]