remove dep on File::Touch

[dbsrgits/DBIx-Class-DeploymentHandler.git] / t / deploy_methods / sql_translator.t

diff --git a/t/deploy_methods/sql_translator.t b/t/deploy_methods/sql_translator.t
index 62094d9..28f9dda 100644 (file)
--- a/t/deploy_methods/sql_translator.t
+++ b/t/deploy_methods/sql_translator.t
@@ -52,7 +52,7 @@ VERSION1: {
    mkpath(catfile(qw( t sql SQLite initialize 1.0 )));
    open my $prerun, '>',
       catfile(qw( t sql SQLite initialize 1.0 003-semiautomatic.pl ));
-   print {$prerun} "sub {use File::Touch; touch(q(foobar));}";
+   print {$prerun} "sub { open my \$fh, '>', q(foobar);}";
    close $prerun;
    $dm->initialize({ version => '1.0' });