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

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