t: fixing skip

This commit is contained in:
Steve Schnepp 2019-07-27 21:15:35 +02:00
parent f42fdaa669
commit 878e733430
1 changed files with 4 additions and 2 deletions

View File

@ -50,8 +50,10 @@ sub process_file {
use v5.10.1;
if ( -r "$file.nocheck") {
skip( sprintf("\nFile '%s' has a .nocheck flag. Ignoring\n", $file), 1);
pass("Not pretending everything is ok");
SKIP: {
skip( sprintf("\nFile '%s' has a .nocheck flag. Ignoring\n", $file), 1);
pass("Not pretending everything is ok");
}
}
elsif ( ! -x $file ) {
# missing executable flag