From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Date: Thu, 10 Oct 1996 02:29:44 +0000 (-0400)
Subject: perl 5.003_07: os2/OS2/ExtAttr/t/os2_ea.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89051be8c498afd1bf6d193e14c013dd36fe3e5e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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';
 
 {