Fixing ioctl on 32bit arches.

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

diff --git a/test/link.t b/test/link.t
index 391b2f0..f617c93 100644 (file)
--- a/test/link.t
+++ b/test/link.t
@@ -3,7 +3,9 @@ use test::helper qw($_real $_point);
 use Test::More;
 plan tests => 8;
 chdir($_point);
-system("echo hippity >womble");
+open($file, '>', 'womble');
+print $file "hippity\n";
+close($file);
 ok(-f "womble","exists");
 ok(!-f "rabbit","target file doesn't exist");
 is(-s "womble",8,"right size");