Add fix for RT #71271.

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

diff --git a/test/utime.t b/test/utime.t
index 8ccefc6..e6bc7b8 100644 (file)
--- a/test/utime.t
+++ b/test/utime.t
@@ -4,7 +4,9 @@ use Test::More;
 plan tests => 3;
 my (@stat);
 chdir($_real);
-system("echo frog >file");
+open($file, '>', 'file');
+print($file "frog\n");
+close($file);
 chdir($_point);
 ok(utime(1,2,"file"),"set utime");
 @stat = stat("file");