use Getopt::Std, patch original from Leonardo <rnalrd@gmail.com>, updated by me

This commit is contained in:
Love Hornquist Astrand
2012-09-23 10:41:34 -07:00
parent 846f6e0e7b
commit 8fb0c019ec

View File

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