From: P. J. McDermott 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 Place the output into \n"); - print(" -h Display this information\n"); - print(" -V Display compiler version information\n"); + print(" -o Place the output into \n"); + print(" -h, --help Display this information\n"); + print(" -V, --version Display compiler version information\n"); } sub version