if(!-e $ls || !-x _){
$result = 'skip';
- $code = 0;
}
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 {
my $result_ref = eval { Load($result) };
ok($result_ref, 'is YAML');
- is($result_ref->{code}, 0, 'exited successfully');
- like($result_ref->{result}, qr{^/bin/ls[^:]}, 'contains ^/bin/ls$');
+ is($result_ref->{result}, 0, 'exited OK');
}
{
ok($result_ref, 'is YAML');
is($result_ref->{code}, 0, 'exited successfully');
like($result_ref->{result}, qr{^/bin/ls[^:]}, 'contains ^/bin/ls$');
+ like($result_ref->{result}, qr{\n.*\n}m, 'contains two newlines');
}
{
fork: