Re: [perl #33892] Add Interix support

[p5sagit/p5-mst-13.2.git] / regcomp.pl

diff --git a/regcomp.pl b/regcomp.pl
index 225882a..97403ba 100644 (file)
--- a/regcomp.pl
+++ b/regcomp.pl
@@ -1,6 +1,6 @@
 BEGIN {
     # Get function prototypes
-    require 'regen.pl';
+    require 'regen_lib.pl';
 }
 #use Fatal qw(open close rename chmod unlink);
 open DESC, 'regcomp.sym';
@@ -22,6 +22,7 @@ $tmp_h = 'tmp_reg.h';
 unlink $tmp_h if -f $tmp_h;
 
 open OUT, ">$tmp_h";
+binmode OUT;
 
 print OUT <<EOP;
 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!