Changed http tests to use t/tmp instead of t/var

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Helper.pm

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index c747bb6..2ae3996 100644 (file)
--- 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") ) {
+        binmode $f;
         print $f $content;
         print qq/created "$file"\n/;
         return 1;
@@ -907,16 +908,17 @@ Catalyst component.
 
 =over 4
 
-=item default
-
-=cut
-
-sub default : Private {
-    my ( $self, $c ) = @_;
-
-    # Hello World
-    $c->response->output('Congratulations, [% class %] is on Catalyst!');
-}
+# Uncomment, modify and add new actions to fit your needs
+#=item default
+#
+#=cut
+#
+#sub default : Private {
+#    my ( $self, $c ) = @_;
+#
+#    # Hello World
+#    $c->response->body('[% class %] is on Catalyst!');
+#}
 
 =back