From: P. J. McDermott <pjm@nac.net>
Date: Sun, 22 Sep 2013 18:03:17 +0000 (-0400)
Subject: Convert to Getopt::Long.
X-Git-Tag: ssic/1.0.0~41
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=37fc33abf5130de76800e3cba2fb60cf74c5c239;p=ssic.git

Convert to Getopt::Long.
---

diff --git a/src/ssic.pl b/src/ssic.pl
index 30f1f25..cad6851 100644
--- a/src/ssic.pl
+++ b/src/ssic.pl
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Getopt::Std;
+use Getopt::Long;
 use CGI::SSI;
 
 sub main
@@ -14,7 +14,13 @@ sub main
 
 	$SIG{'__WARN__'} = \&warning;
 
-	if (not getopts('o:hV', \%opts)) {
+	Getopt::Long::Configure("no_ignore_case", "bundling", "gnu_compat",
+		"no_getopt_compat");
+	if (not GetOptions(\%opts,
+			"o=s",
+			"h|help",
+			"V|version",
+		)) {
 		usage(*STDERR);
 	}
 
@@ -57,9 +63,9 @@ sub help
 
 	usage($fh);
 	print("Options:\n");
-	print("  -o <output>  Place the output into <output>\n");
-	print("  -h           Display this information\n");
-	print("  -V           Display compiler version information\n");
+	print("  -o <output>    Place the output into <output>\n");
+	print("  -h, --help     Display this information\n");
+	print("  -V, --version  Display compiler version information\n");
 }
 
 sub version