Lines Matching refs:code

452     $code = do $perl_testname;
458     if (!defined($code))
467     elsif ($code == -1) {
470     elsif ($code != 1 && $code != -1) {
472       warn "\n*** Test returned $code\n";
489     elsif (!defined $code || $code > 0) {
492     elsif ($code < 0) {
711   local ($code);
715     $code = system "++attach_default_output_hack $filename";
716     $code == -2 || &error ("adoh death\n", 1);
738   local ($code);
742     $code = system "++detach_default_output_hack";
743     $code == -2 || &error ("ddoh death\n", 1);
771   local ($code);
779   $code = system @_;
780   print "run_command: \"@_\" returned $code.\n" if $debug;
782   return $code;
793   local ($code);
801   $code = system @_;
804   print "run_command_with_output: '@_' returned $code.\n" if $debug;
806   return $code;