From 37fc33abf5130de76800e3cba2fb60cf74c5c239 Mon Sep 17 00:00:00 2001 From: "P. J. McDermott" Date: Sun, 22 Sep 2013 14:03:17 -0400 Subject: [PATCH] Convert to Getopt::Long. --- src/ssic.pl | 16 +++++++++++----- 1 file 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 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 -- 2.31.1