[lucy-commits] svn commit: r1139571 - /incubator/lucy/trunk/devel/bin/gen_charmonizer_makefiles.pl

[ma...@apache.org]

Author: marvin
Date: Sat Jun 25 17:16:31 2011
New Revision: 1139571

URL: http://svn.apache.org/viewvc?rev=1139571&view=rev
Log:
Rely on Perl's :crlf IO layer to Do The Right Thing when running
gen_charmonizer_makefiles.pl under Windows, since the generated Makefiles
have svn:eol-style=native.  

Modified:
    incubator/lucy/trunk/devel/bin/gen_charmonizer_makefiles.pl

Modified: incubator/lucy/trunk/devel/bin/gen_charmonizer_makefiles.pl
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/devel/bin/gen_charmonizer_makefiles.pl?rev=1139571&r1=1139570&r2=1139571&view=diff
==============================================================================
--- incubator/lucy/trunk/devel/bin/gen_charmonizer_makefiles.pl (original)
+++ incubator/lucy/trunk/devel/bin/gen_charmonizer_makefiles.pl Sat Jun 25 17:16:31 2011
@@ -82,7 +82,6 @@ EOT
 sub gen_makefile {
     my %args = @_;
     open my $fh, ">Makefile" or die "open Makefile failed: $!\n";
-    binmode $fh;
     my $content = <<EOT;
 # GENERATED BY $0: do not hand-edit!!!
 #
@@ -120,14 +119,12 @@ $args{test_blocks}
 clean:
 	rm -f \$(OBJS) \$(TEST_OBJS) \$(PROGNAME) \$(TESTS) core
 EOT
-    $content =~ s/\r\n/\n/g;
     print $fh $content;
 }
 
 sub gen_makefile_win {
     my %args = @_;
     open my $fh, ">Makefile.win" or die "open Makefile.win failed: $!\n";
-    binmode $fh;
     my $content = <<EOT;
 # GENERATED BY $0: do not hand-edit!!!
 #
@@ -166,7 +163,6 @@ $args{test_blocks}
 clean:
 	del \$(OBJS) \$(PROGNAME) \$(TEST_OBJS) \$(TESTS) core
 EOT
-    $content =~ s/(?<!\r)\n/\r\n/g;
     print $fh $content;
 }