diff options
Diffstat (limited to 'src/ssic.pl')
| -rw-r--r-- | src/ssic.pl | 16 |
1 files changed, 11 insertions, 5 deletions
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 |