projects
/
ssic.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
54231a8
)
Convert to Getopt::Long.
author
P. J. McDermott
<pjm@nac.net>
Sun, 22 Sep 2013 18:03:17 +0000
(14:03 -0400)
committer
P. J. McDermott
<pjm@nac.net>
Sun, 22 Sep 2013 18:03:17 +0000
(14:03 -0400)
src/ssic.pl
patch
|
blob
|
history
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 strict;
use warnings;
-use Getopt::
Std
;
+use Getopt::
Long
;
use CGI::SSI;
sub main
use CGI::SSI;
sub main
@@
-14,7
+14,13
@@
sub main
$SIG{'__WARN__'} = \&warning;
$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);
}
usage(*STDERR);
}
@@
-57,9
+63,9
@@
sub help
usage($fh);
print("Options:\n");
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
}
sub version