Convert to Getopt::Long.

diff --git a/src/ssic.pl b/src/ssic.pl
index 30f1f255371f92a821cd2ee09feb76dc3608d922..cad68517be2fe7b93d81f69929f8ed4f9c74be91 100644 (file)
--- 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