Replace system() calls for 'touch' and friends with Perl ops for same.

[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");