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

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

diff --git a/test/getdir.t b/test/getdir.t
index 1d60561..e6d402a 100644 (file)
--- a/test/getdir.t
+++ b/test/getdir.t
@@ -7,7 +7,10 @@ plan tests => 2 * scalar @names;
 chdir($_real);
 
 # create entries
-map { system("touch \"$_\"") } @names;
+foreach $fname (@names) {
+    open($file, '>', $fname);
+    close($file);
+}
 
 # make sure they exist in real dir
 opendir(REAL,$_real);