X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FFork.pm;fp=t%2Flib%2FTestApp%2FController%2FFork.pm;h=648b2fb7fac1a22083867e56a0e8403f3c33e7ab;hp=68b2c63de72c9cf1f5547a7bb9e94b93a05b2bc5;hb=c7ded7aaf69e506924a5406349fd665c7717acb8;hpb=12bf12c090220bbefc2dc643dddc72c0f96a8c9e diff --git a/t/lib/TestApp/Controller/Fork.pm b/t/lib/TestApp/Controller/Fork.pm index 68b2c63..648b2fb 100644 --- a/t/lib/TestApp/Controller/Fork.pm +++ b/t/lib/TestApp/Controller/Fork.pm @@ -14,11 +14,11 @@ sub system : Local { my ($result, $code) = (undef, 1); if(!-e $ls || !-x _){ - $result = 'skip'; + $result = 'skip'; } else { - $result = system($ls, $ls, $ls); - $result = $! if $result != 0; + $result = system($ls, $ls, $ls); + $result = $! if $result != 0; } $c->response->body(Dump({result => $result})); @@ -29,12 +29,12 @@ sub backticks : Local { my ($result, $code) = (undef, 1); if(!-e $ls || !-x _){ - $result = 'skip'; - $code = 0; + $result = 'skip'; + $code = 0; } else { - $result = `$ls $ls $ls` || $!; - $code = $?; + $result = `$ls $ls $ls` || $!; + $code = $?; } $c->response->body(Dump({result => $result, code => $code})); @@ -46,10 +46,10 @@ sub fork : Local { my $x = 0; if($pid = fork()){ - $x = "ok"; + $x = "ok"; } else { - exit(0); + exit(0); } waitpid $pid,0 or die;