From bb4995b0d1934f0a084714c8369e9fef46090df1 Mon Sep 17 00:00:00 2001 From: Björn Jacke Date: Wed, 4 Jul 2012 11:14:15 +0200 Subject: s4/heimdal: fix make-proto.pl with perl 5.16 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Thanks to Torsten Kurbad. This fixes #9025. Autobuild-User(master): Björn Jacke Autobuild-Date(master): Wed Jul 4 13:51:07 CEST 2012 on sn-devel-104 --- source4/heimdal/cf/make-proto.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/source4/heimdal/cf/make-proto.pl b/source4/heimdal/cf/make-proto.pl index 6894dc143e..07b53f9a8c 100644 --- a/source4/heimdal/cf/make-proto.pl +++ b/source4/heimdal/cf/make-proto.pl @@ -1,8 +1,7 @@ # Make prototypes from .c files # $Id$ -##use Getopt::Std; -require 'getopts.pl'; +use Getopt::Std; my $comment = 0; my $if_0 = 0; @@ -13,7 +12,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; -- cgit