diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-05 16:45:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-05 16:45:54 +0000 |
| commit | 206b12d5641a74e09d210dd4ea3998febd96392f (patch) | |
| tree | 73ad42734e0ebb19822a11154cc600af26734fe3 /ext | |
| parent | 7234c9606edf69c3a376084693e90ff4d9d10f06 (diff) | |
| download | perl-206b12d5641a74e09d210dd4ea3998febd96392f.tar.gz | |
avoid temp file littering in tests
p4raw-id: //depot/perl@11585
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/PerlIO/t/encoding.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/PerlIO/t/encoding.t b/ext/PerlIO/t/encoding.t index debd2bc489..dc2b2ba864 100644 --- a/ext/PerlIO/t/encoding.t +++ b/ext/PerlIO/t/encoding.t @@ -36,7 +36,7 @@ if (open(UTF, "<$utf")) { # alpha beta gamma in UTF-8 Unicode (0x3b1 0x3b2 0x3b3) print "not " unless <UTF> eq "\xce\xb1\xce\xb2\xce\xb3"; print "ok 4\n"; - close $grk; + close UTF; } { @@ -54,7 +54,7 @@ if (open(UTF, "<$utf")) { if (open(GRK, "<$grk")) { print "not " unless <GRK> eq "\xe1\xe2\xe3"; print "ok 8\n"; - close $grk; + close GRK; } END { |