This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
When testing the end version, bisect.pl should treat a 'skip' as fatal.
[perl5.git] / Porting / bisect.pl
index 96d7b8c..c52c740 100755 (executable)
@@ -135,6 +135,8 @@ if ($git_version ge v1.6.6) {
 system "git checkout $end" and die;
 my $ret = system $^X, $runner, @ARGV;
 die "Runner returned $ret for end revision" unless $ret;
 system "git checkout $end" and die;
 my $ret = system $^X, $runner, @ARGV;
 die "Runner returned $ret for end revision" unless $ret;
+die "Runner returned $ret for end revision, which is a skip"
+    if $ret == 125 * 256;
 
 if (defined $start) {
     system "git checkout $start" and die;
 
 if (defined $start) {
     system "git checkout $start" and die;