From: Andy Grundman <andy@hybridized.org>
Date: Thu, 20 Oct 2005 18:36:57 +0000 (+0000)
Subject: Set binmode on files created using the helper, so they are created properly on win32
X-Git-Tag: 5.7099_04~1170
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=85f877d72627f8a934999803d3538015f8eca657;hp=04e5fb839ae776b17d6409f728cf3f0e1eb4c795

Set binmode on files created using the helper, so they are created properly on win32
---

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index c0af652..64dad70 100644
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -217,6 +217,7 @@ sub mk_file {
         $file .= '.new';
     }
     if ( my $f = IO::File->new("> $file") ) {
+        $f->binmode;
         print $f $content;
         print qq/created "$file"\n/;
         return 1;