From: Brandon L. Black Date: Wed, 15 Nov 2006 14:13:44 +0000 (+0000) Subject: fix for rt.cpan.org #22740 (use $^X instead of hardcoded "perl") X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=35ce997716cc332d367bea6654da4d982671fb10;p=dbsrgits%2FDBIx-Class-Historic.git fix for rt.cpan.org #22740 (use $^X instead of hardcoded "perl") --- 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' );