X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F94versioning.t;h=146c7c31fa8919a7d9a71c19c34b9698c9d7cb44;hb=f3ec358e1859eb4ab179fda0d93e8c0336c0f8a9;hp=7884cad2b409b3c6c5de331595c7669baf9bdd27;hpb=656524408f86cf27df8c70a900f452421be9c4e4;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/94versioning.t b/t/94versioning.t
index 7884cad..146c7c3 100644
--- a/t/94versioning.t
+++ b/t/94versioning.t
@@ -185,7 +185,11 @@ my $schema_v3 = DBICVersion::Schema->connect($dsn, $user, $pass, { ignore_versio
 }
 
 # 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
 {