diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-09-01 17:49:27 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-01 16:06:20 +0000 |
| commit | a3318c00b76dd58714c012a4fdc948dc1bd47fe1 (patch) | |
| tree | bbff0a0f46fb306201636305c95ab60d91bc0fb0 | |
| parent | 051b35bf0b07820076d573321931d9a4f436c8e3 (diff) | |
| download | perl-a3318c00b76dd58714c012a4fdc948dc1bd47fe1.tar.gz | |
[ID 20000901.017] [PATCH] Basic test failure in an untidy world
Message-Id: <E13Ut4J-0002sd-00@draco.cus.cam.ac.uk>
p4raw-id: //depot/perl@6979
| -rwxr-xr-x | t/base/rs.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/base/rs.t b/t/base/rs.t index 021d699e2e..e470f3a30c 100755 --- a/t/base/rs.t +++ b/t/base/rs.t @@ -6,6 +6,8 @@ print "1..14\n"; $teststring = "1\n12\n123\n1234\n1234\n12345\n\n123456\n1234567\n"; # Create our test datafile +1 while unlink 'foo'; # in case junk left around +rmdir 'foo'; open TESTFILE, ">./foo" or die "error $! $^E opening"; binmode TESTFILE; print TESTFILE $teststring; |