main/heimdal/heimdal-1.5-use-perl-Getopt_Std.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

--- cf/make-proto.pl
+++ cf/make-proto.pl
@@ -1,8 +1,8 @@
 # Make prototypes from .c files
 # $Id$
 
-##use Getopt::Std;
-require 'getopts.pl';
+use Getopt::Std;
+##require 'getopts.pl';
 
 my $comment = 0;
 my $if_0 = 0;
@@ -13,7 +13,7 @@
 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;