X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F89dbicadmin.t;h=b62d62231e93d650e936d50cfa4aef886ec6d072;hb=35ce997716cc332d367bea6654da4d982671fb10;hp=7307c6f210772eea33c090de984a5a109317f823;hpb=3da841f1cd4418f8f4bfcf56228a06a5feb842aa;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/89dbicadmin.t b/t/89dbicadmin.t
index 7307c6f..b62d622 100644
--- a/t/89dbicadmin.t
+++ b/t/89dbicadmin.t
@@ -23,7 +23,7 @@ plan tests => 5;
 # tests run on windows as well
 
 my $employees = $schema->resultset('Employee');
-my $cmd = qq|perl script/dbicadmin --schema=DBICTest::Schema --class=Employee --tlibs --connect="['dbi:SQLite:dbname=t/var/DBIxClass.db','','']" --force --tlibs|;
+my $cmd = qq|$^X script/dbicadmin --schema=DBICTest::Schema --class=Employee --tlibs --connect="['dbi:SQLite:dbname=t/var/DBIxClass.db','','']" --force --tlibs|;
 
 `$cmd --op=insert --set="{name:'Matt'}"`;
 ok( ($employees->count()==1), 'insert count' );