From 4da09a65f84b2ebca6bf05e6b793868fc683b40f Mon Sep 17 00:00:00 2001
From: Wayne Davison <wayned@samba.org>
Date: Fri, 9 Nov 2007 19:14:51 +0000
Subject: [PATCH] Simplified script even more for HP-UX.

---
 mkproto.pl | 23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

diff --git a/mkproto.pl b/mkproto.pl
index e8f0e832..b989a5f6 100644
--- a/mkproto.pl
+++ b/mkproto.pl
@@ -1,21 +1,20 @@
 # generate prototypes for rsync
-use strict;
 
-my $old_protos = '';
+$old_protos = '';
 if (open(IN, 'proto.h')) {
     $old_protos = join('', <IN>);
     close IN;
 }
 
-my %FN_MAP = (
+%FN_MAP = (
     BOOL => 'BOOL ',
     CHAR => 'char ',
     INTEGER => 'int ',
     STRING => 'char *',
 );
 
-my $inheader = 0;
-my $protos = qq|/* This file is automatically generated with "make proto". DO NOT EDIT */\n\n|;
+$inheader = 0;
+$protos = qq|/* This file is automatically generated with "make proto". DO NOT EDIT */\n\n|;
 
 while (<>) {
     if ($inheader) {
@@ -24,16 +23,12 @@ while (<>) {
 	    s/$/;/;
 	}
 	$protos .= $_;
-    }
-
-    if (/^FN_(LOCAL|GLOBAL)_([^(]+)\(([^,()]+)/) {
-	my $ret = $FN_MAP{$2};
-	my $func = $3;
-	my $arg = $1 eq 'LOCAL' ? 'int ' : 'void';
+    } elsif (/^FN_(LOCAL|GLOBAL)_([^(]+)\(([^,()]+)/) {
+	$ret = $FN_MAP{$2};
+	$func = $3;
+	$arg = $1 eq 'LOCAL' ? 'int ' : 'void';
 	$protos .= "$ret$func($arg);\n";
-    } elsif (/^static|^extern/ || /[;]/) {
-	;
-    } elsif (!/^[A-Za-z][A-Za-z0-9_]* /) {
+    } elsif (/^static|^extern/ || /[;]/ || !/^[A-Za-z][A-Za-z0-9_]* /) {
 	;
     } elsif (/[(].*[)][ \t]*$/) {
 	s/$/;/;
-- 
2.34.1