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

ab966109 · Wayne Davison · c8dccf8f · ab966109
Commit ab966109 authored Nov 09, 2007 by Wayne Davison
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

mkproto.pl mkproto.pl +2 -2

No files found.
--- 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;
 }