perl 5.003_07: os2/OS2/ExtAttr/t/os2_ea.t

Date: Wed, 9 Oct 1996 22:29:44 -0400 (EDT)
From: Ilya Zakharevich <ilya@math.ohio-state.edu>

Use `unlink' where appropriate.

diff --git a/os2/OS2/ExtAttr/t/os2_ea.t b/os2/OS2/ExtAttr/t/os2_ea.t
index c102419..dc6f996 100644 (file)
--- a/os2/OS2/ExtAttr/t/os2_ea.t
+++ b/os2/OS2/ExtAttr/t/os2_ea.t
@@ -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';
 
 {