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

diff --git a/mkproto.pl b/mkproto.pl
index f453501b781a95a7e03b8f42945e1188f82dd1fa..e8f0e83254b76cb220ad3d89f008f5350ec8339e 100644 (file)
--- 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;
 }