Added a test for a chained bug

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Fork.pm

diff --git a/t/lib/TestApp/Controller/Fork.pm b/t/lib/TestApp/Controller/Fork.pm
index b6992ab..648b2fb 100644 (file)
--- a/t/lib/TestApp/Controller/Fork.pm
+++ b/t/lib/TestApp/Controller/Fork.pm
@@ -14,15 +14,14 @@ sub system : Local {
     my ($result, $code) = (undef, 1);
 
     if(!-e $ls || !-x _){ 
-       $result = 'skip';
-       $code = 0;
+        $result = 'skip';
     }
     else {
-       $result = system($ls, $ls, $ls) || $!;
-       $code = $?;
+        $result = system($ls, $ls, $ls);
+        $result = $! if $result != 0;
     }
     
-    $c->response->body(Dump({result => $result, code => $code}));
+    $c->response->body(Dump({result => $result}));
 }
 
 sub backticks : Local {
@@ -30,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}));
@@ -47,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;