my $w = shift @w;
like $w, expect('Baz', 't/lib/indirect/TestRequired2.pm'),
'second require test caught error for Baz';
SKIP: {
skip 'The pragma doesn\'t propagte into eval STRING before perl 5.10' => 1
my $w = shift @w;
like $w, expect('Baz', 't/lib/indirect/TestRequired2.pm'),
'second require test caught error for Baz';
SKIP: {
skip 'The pragma doesn\'t propagte into eval STRING before perl 5.10' => 1