From ab9661098674ee9896cade4c3098100b14c94c93 Mon Sep 17 00:00:00 2001
From: Wayne Davison <wayned@samba.org>
Date: Fri, 9 Nov 2007 18:15:52 +0000
Subject: [PATCH] Use older open() style for compatibility with older perl
 versions.

---
 mkproto.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mkproto.pl b/mkproto.pl
index f453501b..e8f0e832 100644
--- a/mkproto.pl
+++ b/mkproto.pl
@@ -2,7 +2,7 @@
 use strict;
 
 my $old_protos = '';
-if (open(IN, '<', 'proto.h')) {
+if (open(IN, 'proto.h')) {
     $old_protos = join('', <IN>);
     close IN;
 }
@@ -45,7 +45,7 @@ while (<>) {
 }
 
 if ($old_protos ne $protos) {
-    open(OUT, '>', 'proto.h') or die $!;
+    open(OUT, '>proto.h') or die $!;
     print OUT $protos;
     close OUT;
 }
-- 
2.34.1