Replace system() calls for 'touch' and friends with Perl ops for same.

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

diff --git a/test/mknod.t b/test/mknod.t
index 0edec86..c35853a 100644 (file)
--- a/test/mknod.t
+++ b/test/mknod.t
@@ -4,13 +4,14 @@ use Test::More;
 plan tests => 24;
 use English;
 use Unix::Mknod qw(:all);
-use Fcntl qw(:mode);
+use Fcntl qw(S_IFCHR S_IFBLK);
 use POSIX;
 
 my (@stat);
 
 chdir($_point);
-ok(!(system("touch reg"      )>>8),"create normal file");
+ok(open($file, '>', 'reg'),"create normal file");
+close($file);
 ok(defined mkfifo($_point.'/fifo', 0600),"create fifo");
 
 chdir($_real);