$_tok = do {
   if (1) {
      do {
         push @{$thisparser->{errors}}, [qq{FOO!},$thisline];
      } unless  $_noactions;
      undef
   } else {
      0
   }
};