use Test::More;
use Config;
-use File::Spec;
use DBICTest;
sub test_exec {
my ($perl) = $^X =~ /(.*)/;
- my @args = ($perl, '-MANFANG', File::Spec->catfile(qw(script dbicadmin)), @_);
+ my @args = ($perl, '-MANFANG', 'script/dbicadmin', @_);
if ($^O eq 'MSWin32') {
require Win32::ShellQuote; # included in test optdeps