+# -e is sufficient here.
+-e 't/smells-of-vcs/.git'
+ or mkdir('t/smells-of-vcs/.git')
+ or die "Couldn't create fake .git: $!";
+
use Test::More qw(no_plan);
our (@us, @expect);
is($us[$idx][1], $expect[$idx][1], 'Warnings ok for case '.($idx+1));
}
-{
+SKIP: {
+ skip 'Extra tests disabled on perls <= 5.008003', 1
+ if $] < 5.008004;
local $0 = 't/00load.t';
sub Foo::new { 1 }
+ chdir("t/smells-of-vcs");
my $r = eval q{
use strictures 1;
new Foo 1, 2, 3;