Get setsid() and provide absolute path for pidfile.

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

diff --git a/test/chmod.t b/test/chmod.t
index 366f89b..1ccb3ef 100644 (file)
--- a/test/chmod.t
+++ b/test/chmod.t
@@ -3,7 +3,9 @@ use test::helper qw($_real $_point);
 use Test::More;
 plan tests => 4;
 chdir($_point);
-system("echo frog >file");
+open($file, '>', 'file');
+print $file "frog\n";
+close($file);
 ok(chmod(0644,"file"),"set unexecutable");
 ok(!-x "file","unexecutable");
 ok(chmod(0755,"file"),"set executable");