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

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

diff --git a/test/write.t b/test/write.t
index 58af2aa..406a7e3 100644 (file)
--- a/test/write.t
+++ b/test/write.t
@@ -6,7 +6,9 @@ my ($data);
 chdir($_point);
 undef $/; # slurp it all
 # create file
-system("echo frogbing >writefile");
+open($file, '>', 'writefile');
+print $file "frogbing\n";
+close($file);
 
 # fetch contents of file
 ok(open(FILE,"writefile"),"open");