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
|
# Make prototypes from .c files
|
||||||
# $Id$
|
# $Id$
|
||||||
|
|
||||||
##use Getopt::Std;
|
use Getopt::Std;
|
||||||
require 'getopts.pl';
|
|
||||||
use File::Compare;
|
use File::Compare;
|
||||||
|
|
||||||
my $comment = 0;
|
my $comment = 0;
|
||||||
@@ -14,7 +13,7 @@ my $oproto = 1;
|
|||||||
my $private_func_re = "^_";
|
my $private_func_re = "^_";
|
||||||
my %depfunction = ();
|
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) {
|
if($opt_d) {
|
||||||
$debug = 1;
|
$debug = 1;
|
||||||
|
Reference in New Issue
Block a user