This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
allow test.pl tests to use C<< plan skip_all => $reason >>
[perl5.git] / t / test.pl
index 342cfdc..13db432 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -53,6 +53,7 @@ sub plan {
        }
     } else {
        my %plan = @_;
+       $plan{skip_all} and skip_all($plan{skip_all});
        $n = $plan{tests};
     }
     _print "1..$n\n" unless $noplan;