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
|
||||
|
||||
require 'getopts.pl';
|
||||
use Getopt::Std;
|
||||
|
||||
my $debug = 0;
|
||||
|
||||
Getopts('dc:p:o:') || die "foo";
|
||||
getopts('dc:p:o:') || die "foo";
|
||||
|
||||
if ($opt_d) {
|
||||
$debug = 1;
|
||||
|
Reference in New Issue
Block a user