From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Sun, 9 Jun 2002 13:55:21 +0000 (+0200)
Subject: cleanup's
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=92e410c29ecf54b2665e7f99d58998a8943bf818;p=p5sagit%2Fp5-mst-13.2.git

cleanup's
From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
Message-Id: <20020609102200.DEE5.H.M.BRAND@hccnet.nl>

p4raw-id: //depot/perl@17143
---

diff --git a/ext/PerlIO/t/encoding.t b/ext/PerlIO/t/encoding.t
index 986f21e..ce07fea 100644
--- a/ext/PerlIO/t/encoding.t
+++ b/ext/PerlIO/t/encoding.t
@@ -16,8 +16,8 @@ print "1..13\n";
 
 my $grk = "grk$$";
 my $utf = "utf$$";
-my $fail1 = "fail$$";
-my $fail2 = "fail_$$";
+my $fail1 = "fa$$";
+my $fail2 = "fb$$";
 my $russki = "koi8r$$";
 
 if (open(GRK, ">$grk")) {
@@ -132,5 +132,5 @@ if (!defined $warn) {
 }
 
 END {
-    unlink($grk, $utf, $fail1, $russki);
+    unlink($grk, $utf, $fail1, $fail2, $russki);
 }