my $s = DBICTest::Schema->connect($dsn, $user, $pass);
}
+# in case it came from the env
+$ENV{DBIC_NO_VERSION_CHECK} = 0;
+
use_ok('DBICVersion_v1');
my $version_table_name = 'dbix_class_schema_versions';
}
# add a "harmless" comment before one of the statements.
-system( qq($^X -pi.bak -e "s/ALTER/-- this is a comment\nALTER/" $fn->{trans_v23}) );
+{
+ my ($perl) = $^X =~ /(.+)/;
+ local $ENV{PATH};
+ system( qq($perl -pi.bak -e "s/ALTER/-- this is a comment\nALTER/" $fn->{trans_v23}) );
+}
# Then attempt v1 -> v3 upgrade
{