From: Wayne Davison <wayned@samba.org>
Date: Fri, 9 Nov 2007 18:15:52 +0000 (+0000)
Subject: Use older open() style for compatibility with older perl versions.
X-Git-Tag: v3.0.0pre6~48
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ab9661098674ee9896cade4c3098100b14c94c93;p=thirdparty%2Frsync.git

Use older open() style for compatibility with older perl versions.
---

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;
 }