Make the SEARCH_ABORT logic actually work

The SEARCH_ABORT logic was not working as intended
(tests were not being aborted).
This commit is contained in:
Marko Mäkelä 2017-09-07 11:59:26 +03:00
parent 3ec8268b4a
commit ee844f6c34

View File

@ -76,5 +76,6 @@ perl;
my $res=@matches ? "FOUND " . scalar(@matches) : "NOT FOUND";
$ENV{SEARCH_FILE} =~ s{^.*?([^/\\]+)$}{$1};
print "$res /$search_pattern/ in $ENV{SEARCH_FILE}\n";
exit $ENV{SEARCH_ABORT} && $res =~ /^$ENV{SEARCH_ABORT}/;
die "$ENV{SEARCH_ABORT}\n"
if $ENV{SEARCH_ABORT} && $res =~ /^$ENV{SEARCH_ABORT}/;
EOF