X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2Fssic.pl;h=b6876d5036ef22fe6d323c93ae656f4604f464fc;hb=825af6201efe46ddc82e6c0a51410cd86612226e;hp=30f1f255371f92a821cd2ee09feb76dc3608d922;hpb=54231a8541deca709baeb49e35e62a4d7ecea00a;p=ssic.git

diff --git a/src/ssic.pl b/src/ssic.pl
index 30f1f25..b6876d5 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,8 +14,15 @@ 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);
+		exit(4);
 	}
 
 	if (exists($opts{'h'})) {
@@ -57,9 +64,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