Fixed binmode call in helper

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