roken-h-process: use Getopt::Std, getopts.pl is deprecated
Signed-off-by: Gustavo Zacarias <gustavo@zacarias.com.ar> Signed-off-by: Love Hörnquist Åstrand <lha@h5l.org>
This commit is contained in:

committed by
Love Hörnquist Åstrand

parent
1c698d298c
commit
f76e8d5710
@@ -1,10 +1,10 @@
|
|||||||
#!/usr/bin/perl
|
#!/usr/bin/perl
|
||||||
|
|
||||||
require 'getopts.pl';
|
use Getopt::Std;
|
||||||
|
|
||||||
my $debug = 0;
|
my $debug = 0;
|
||||||
|
|
||||||
Getopts('dc:p:o:') || die "foo";
|
getopts('dc:p:o:') || die "foo";
|
||||||
|
|
||||||
if ($opt_d) {
|
if ($opt_d) {
|
||||||
$debug = 1;
|
$debug = 1;
|
||||||
|
Reference in New Issue
Block a user