Make ioctl implementation BSD-friendly.

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

diff --git a/test/read.t b/test/read.t
index 5eca920..b4297f3 100644 (file)
--- a/test/read.t
+++ b/test/read.t
@@ -3,7 +3,9 @@ use test::helper qw($_real $_point);
 use Test::More;
 plan tests => 3;
 chdir($_real);
-system("echo frog >file");
+open($file, '>','file');
+print $file "frog\n";
+close($file);
 chdir($_point);
 ok(open(FILE,"file"),"open");
 my ($data) = <FILE>;