Add fix for RT #71271.

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

diff --git a/test/chown.t b/test/chown.t
index 45a811f..74adb14 100644 (file)
--- a/test/chown.t
+++ b/test/chown.t
@@ -6,7 +6,9 @@ plan tests => 4;
 
 my (@stat);
 chdir($_point);
-system("echo frog >file");
+open($file, '>', 'file');
+print $file "frog\n";
+close($file);
 
 SKIP: {
        skip('Need root to give away ownership', 4) unless ($UID == 0);