perl 5.003_07: os2/OS2/ExtAttr/t/os2_ea.t
authorIlya Zakharevich <ilya@math.ohio-state.edu>
Thu, 10 Oct 1996 02:29:44 +0000 (22:29 -0400)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Thu, 10 Oct 1996 02:29:44 +0000 (22:29 -0400)
Date: Wed, 9 Oct 1996 22:29:44 -0400 (EDT)
From: Ilya Zakharevich <ilya@math.ohio-state.edu>

Use `unlink' where appropriate.

os2/OS2/ExtAttr/t/os2_ea.t

index c102419..dc6f996 100644 (file)
@@ -28,7 +28,7 @@ print "ok 1\n";
 # (correspondingly "not ok 13") depending on the success of chunk 13
 # of the test code):
 
-system 'cmd', '/c', 'del t.out';
+unlink 't.out' if -f 't.out';
 system 'cmd', '/c', 'echo OK > t.out';
 
 {