tweaking for FCGI stuff
[gitmo/MooseX-Daemonize.git] / t / 01.filecreate.t
index 7794164..01cc2b7 100644 (file)
@@ -13,7 +13,12 @@ use MooseX::Daemonize;
     with qw(MooseX::Daemonize);
 
     has filename => ( isa => 'Str', is => 'ro' );
-    after start => sub { $_[0]->create_file( $_[0]->filename ) };
+    
+    after start => sub { 
+        my $self = shift;
+        $self->create_file( $self->filename ) 
+            if $self->is_daemon;
+    };
 
     sub create_file {
         my ( $self, $file ) = @_;