use Getopt::Std, patch original from Leonardo <rnalrd@gmail.com>, updated by me
This commit is contained in:
@@ -1,8 +1,7 @@
|
||||
# Make prototypes from .c files
|
||||
# $Id$
|
||||
|
||||
##use Getopt::Std;
|
||||
require 'getopts.pl';
|
||||
use Getopt::Std;
|
||||
use File::Compare;
|
||||
|
||||
my $comment = 0;
|
||||
@@ -14,7 +13,7 @@ my $oproto = 1;
|
||||
my $private_func_re = "^_";
|
||||
my %depfunction = ();
|
||||
|
||||
Getopts('x:m:o:p:dqE:R:P:') || die "foo";
|
||||
getopts('x:m:o:p:dqE:R:P:') || die "foo";
|
||||
|
||||
if($opt_d) {
|
||||
$debug = 1;
|
||||
|
Reference in New Issue
Block a user