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:
Gustavo Zacarias
2014-01-30 16:33:44 -03:00
committed by Love Hörnquist Åstrand
parent 1c698d298c
commit f76e8d5710

View File

@@ -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;