- my ($code, $expected) = split /^-{4,}$/m, $_, 2;
- my @expected = expect($expected);
-
- skip "$_: $skip" => 3 * (4 + @expected) if eval $skip;
+ if (do { local $@; eval $skip }) {
+ my ($code, $expected) = split /^-{4,}$/m, $_, 2;
+ my @expected = expect($expected);
+ skip "$_: $skip" => 3 * (4 + @expected);
+ }