From b19aeee4a7a627847847766d407219ea3fc735ff Mon Sep 17 00:00:00 2001
From: =?utf8?q?=C3=98yvind=20A=2E=20Holm?= <sunny@sunbase.org>
Date: Mon, 22 Sep 2008 16:15:10 +0200
Subject: [PATCH] =?utf8?q?*=20/trunk/access=5Flog2tab=20*=20/trunk/afv=20*?=
 =?utf8?q?=20/trunk/create=5Fnew=20*=20/trunk/create=5Fsvn=20*=20/trunk/cs?=
 =?utf8?q?v2gpx=20*=20/trunk/dbk=20*=20/trunk/enc-mp4=20*=20/trunk/find=5F?=
 =?utf8?q?inv=5Futf8=20*=20/trunk/finduuid=20*=20/trunk/fromhex=20*=20/tru?=
 =?utf8?q?nk/html2db=20*=20/trunk/klokke=20*=20/trunk/mailfix=20*=20/trunk?=
 =?utf8?q?/manyfiles=20*=20/trunk/mvdirnewest=20*=20/trunk/pingstat=20*=20?=
 =?utf8?q?/trunk/pmsetdate=20*=20/trunk/scrplay=20*=20/trunk/std=20*=20/tr?=
 =?utf8?q?unk/sumdup=20*=20/trunk/suuid=20*=20/trunk/svnfiledate=20*=20/tr?=
 =?utf8?q?unk/svnlog2tab=20*=20/trunk/svnstat=20*=20/trunk/tohex=20*=20/tr?=
 =?utf8?q?unk/wlan-list=20*=20/trunk/xml2html=20*=20/trunk/zeropad=20*=20/?=
 =?utf8?q?trunk/zerosplit=20=20=20Kj=C3=B8rte=20mergesvn=20p=C3=A5=20dem,?=
 =?utf8?q?=20alle=20fikk=20merga=20inn=20r2339:2480=20(r2479,=20r2480)=20?=
 =?utf8?q?=20=20fra=20Lib/std/perl=20.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

d849be7a-88b0-11dd-83a2-000475e441b9

git-svn-id: svn+ssh://svnhost/utils@2501 ddca7c6a-6bd8-0310-abd8-a0f6a7c394c1
---
 csv2gpx | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/csv2gpx b/csv2gpx
index 12e4fa6..ca2d62f 100755
--- a/csv2gpx
+++ b/csv2gpx
@@ -47,7 +47,10 @@ GetOptions(
 
 $Opt{'debug'} && ($Debug = 1);
 $Opt{'help'} && usage(0);
-$Opt{'version'} && print_version();
+if ($Opt{'version'}) {
+    print_version();
+    exit(0);
+}
 
 my $DIGIT = '0-9\.\-\+';
 
@@ -102,7 +105,6 @@ sub print_version {
     for (@main::version_array) {
         print("$_\n");
     }
-    exit(0);
     # }}}
 } # print_version()
 
@@ -110,10 +112,12 @@ sub usage {
     # Send the help message to stdout {{{
     my $Retval = shift;
 
+    if ($Opt{'verbose'}) {
+        print("\n");
+        print_version();
+    }
     print(<<END);
 
-$rcs_id
-
 Usage: $progname [options] [file [files [...]]]
 
 Options:
-- 
2.11.4.GIT