diff options
| author | David Mitchell <davem@iabyn.com> | 2013-10-23 16:40:55 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2013-10-23 16:40:55 +0100 |
| commit | 7a6da24c189d4507eab9c21153e8c11d42d9f795 (patch) | |
| tree | 90ef80d629f199fc188908f3aca27feb8d782a98 /lib/Tie | |
| parent | 00db94a99cf028d8d91eedfbb546d9ebc2b1ae7c (diff) | |
| download | perl-7a6da24c189d4507eab9c21153e8c11d42d9f795.tar.gz | |
stdhandle.t: unlink the right file.
It writes to "afile", but initially deleted "afile.new" if it already
existed.
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/Handle/stdhandle.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Tie/Handle/stdhandle.t b/lib/Tie/Handle/stdhandle.t index 861bdab116..ff2a18bec3 100644 --- a/lib/Tie/Handle/stdhandle.t +++ b/lib/Tie/Handle/stdhandle.t @@ -13,7 +13,7 @@ tie *tst,Tie::StdHandle; $f = 'tst'; -unlink("afile.new") if -f "afile"; +unlink("afile") if -f "afile"; ok(open($f,"+>afile"), "open +>afile"); ok(open($f, "+<", "afile"), "open +<, afile"); |