diff -Naur heimdal-1.5.2-lunar/cf/make-proto.pl heimdal-1.5.2/cf/make-proto.pl
--- heimdal-1.5.2-lunar/cf/make-proto.pl	2012-01-10 22:53:51.000000000 +0100
+++ heimdal-1.5.2/cf/make-proto.pl	2012-06-16 19:26:38.404284495 +0200
@@ -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 $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;
@@ -68,7 +67,7 @@
 
 while(<>) {
     print $brace, " ", $_ if($debug);
-    
+
     # Handle C comments
     s@/\*.*\*/@@;
     s@//.*/@@;
@@ -123,7 +122,7 @@
 		# remove , within ()
 		while(s/\(([^()]*),(.*)\)/($1\$$2)/g){}
 		s/\<\s*void\s*\>/<>/;
-		# remove parameter names 
+		# remove parameter names
 		if($opt_P eq "remove") {
 		    s/(\s*)([a-zA-Z0-9_]+)([,>])/$3/g;
 		    s/\s+\*/*/g;
@@ -152,7 +151,7 @@
 		    $RP = ")";
 		}
 		# only add newline if more than one parameter
-                if($flags{"multiline-proto"} && /,/){ 
+                if($flags{"multiline-proto"} && /,/){
 		    s/\</ $LP\n\t/;
 		}else{
 		    s/\</ $LP/;
@@ -363,7 +362,7 @@
 #endif
 #endif
 ";
-    
+
     $private_h_header .= "#ifndef $opt_E
 #ifndef ${opt_E}_FUNCTION
 #if defined(_WIN32)
@@ -380,12 +379,12 @@
 
 ";
 }
-    
+
 $public_h_trailer .= $undepstr;
 $private_h_trailer .= $undepstr;
 
 if ($public_h ne "" && $flags{"header"}) {
-    $public_h = $public_h_header . $public_h . 
+    $public_h = $public_h_header . $public_h .
 	$public_h_trailer . "#endif /* $block */\n";
 }
 if ($private_h ne "" && $flags{"header"}) {
@@ -395,10 +394,10 @@
 
 if($opt_o) {
     print OUT $public_h;
-} 
+}
 if($opt_p) {
     print PRIV $private_h;
-} 
+}
 
 close OUT;
 close PRIV;