From: Harlan Stenn <stenn@ntp.org>
Date: Mon, 27 Jan 2014 09:46:42 +0000 (+0000)
Subject: Require a version string for perl scripts that use autogen
X-Git-Tag: NTP_4_2_7P413~4
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b1abe2ea43a49b8bd2450bdbaa79705e4bd815e1;p=thirdparty%2Fntp.git

Require a version string for perl scripts that use autogen

bk: 52e62b024SuUzf3IpAl1C2WjWs3gIw
---

diff --git a/ChangeLog b/ChangeLog
index e8d61c32c..a35cb7339 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,5 @@
-* html/ cleanup
+* Require a version string for perl scripts that use autogen.
+* html/ cleanup.
 (4.2.7p412) 2014/01/20 Released by Harlan Stenn <stenn@ntp.org>
 * [Bug 2540] bootstrap script needs to 'touch' files in finer-grained groups.
 (4.2.7p411) 2014/01/12 Released by Harlan Stenn <stenn@ntp.org>
diff --git a/sntp/ag-tpl/perlopt.tpl b/sntp/ag-tpl/perlopt.tpl
index 476e4c30e..4ec1c8519 100644
--- a/sntp/ag-tpl/perlopt.tpl
+++ b/sntp/ag-tpl/perlopt.tpl
@@ -7,9 +7,10 @@
 # DO NOT EDIT THE FOLLOWING
 #
 # It's auto generated option handling code [=
-(if (not (and (exist? "prog-name") (exist? "prog-title")))
+(if (not (and (exist? "prog-name") (exist? "prog-title") (exist? "version")))
     (error "prog-name and prog-title are required"))
 (define prog-name (get "prog-name"))
+
 (if (> (string-length prog-name) 16)
     (error (sprintf "prog-name limited to 16 characters:  %s"
            prog-name)) ) 
@@ -146,7 +147,7 @@ sub processOptions {
         'help|?', 'more-help'));
 
     $usage = <<'USAGE';
-[= prog-name =] - [= prog-title =]
+[= prog-name =] - [= prog-title =] - Ver. [= version =]
 USAGE: [= prog-name =] [ -<flag> [<val>] | --<name>[{=| }<val>] ]... [= argument =]
 [= (emit perl_usage ) =]
     -?, --help                   Display usage information and exit