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 (file)
--- 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);
 }