summaryrefslogtreecommitdiff
path: root/t/comp
diff options
context:
space:
mode:
authorZefram <zefram@fysh.org>2017-11-14 09:49:11 +0000
committerZefram <zefram@fysh.org>2017-11-14 10:15:04 +0000
commitc0a22fcc1cf66dc415acf252a180a384f2e4d360 (patch)
treebf92b0faac3a462d7d8a75da780906359f34e911 /t/comp
parent68e4117104b9c2ff428dd80807d165702e35bb7b (diff)
downloadperl-c0a22fcc1cf66dc415acf252a180a384f2e4d360.tar.gz
fix naming of some test temp files
The files should be named t/tmp*, to fall under .gitignore and be ignored by podcheck.
Diffstat (limited to 't/comp')
-rw-r--r--t/comp/utf.t6
1 files changed, 3 insertions, 3 deletions
diff --git a/t/comp/utf.t b/t/comp/utf.t
index 4e747c4a98..95c23651b9 100644
--- a/t/comp/utf.t
+++ b/t/comp/utf.t
@@ -34,11 +34,11 @@ sub bytes_to_utf {
sub test {
my ($enc, $write, $expect, $bom, $nl, $name) = @_;
- open my $fh, ">", "utf$$.pl" or die "utf.pl: $!";
+ open my $fh, ">", "tmputf$$.pl" or die "tmputf$$.pl: $!";
binmode $fh;
print $fh bytes_to_utf($enc, $write . ($nl ? "\n" : ''), $bom);
close $fh or die $!;
- my $got = do "./utf$$.pl";
+ my $got = do "./tmputf$$.pl";
$test = $test + 1;
if (!defined $got) {
if ($@ =~ /^(Unsupported script encoding \Q$enc\E)/) {
@@ -100,5 +100,5 @@ for my $bom (0, 1) {
}
END {
- 1 while unlink "utf$$.pl";
+ 1 while unlink "tmputf$$.pl";
}