Merge branch 'master' of github.com:dpavlin/perl-fuse

[perl-fuse.git] / test / unlink.t

diff --git a/test/unlink.t b/test/unlink.t
index eef8c1a..85c255f 100644 (file)
--- a/test/unlink.t
+++ b/test/unlink.t
@@ -3,7 +3,8 @@ use test::helper qw($_real $_point);
 use Test::More;
 plan tests => 4;
 chdir($_point);
-system("touch file");
+open($file, '>', 'file');
+close($file);
 ok(-f "file","file exists");
 chdir($_real);
 ok(-f "file","file really exists");