diff options
author | Zefram <zefram@fysh.org> | 2017-11-14 09:49:11 +0000 |
---|---|---|
committer | Zefram <zefram@fysh.org> | 2017-11-14 10:15:04 +0000 |
commit | c0a22fcc1cf66dc415acf252a180a384f2e4d360 (patch) | |
tree | bf92b0faac3a462d7d8a75da780906359f34e911 /t/comp | |
parent | 68e4117104b9c2ff428dd80807d165702e35bb7b (diff) | |
download | perl-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.t | 6 |
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"; } |