From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 30 May 2003 13:08:01 +0000 (-0500)
Subject: ext/Encode/t/perlio.t filename tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=91707c8168970b176176e6ddb3c00060363fecc1;p=p5sagit%2Fp5-mst-13.2.git

ext/Encode/t/perlio.t filename tweak
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3ED79E01.8050401@mac.com>

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

diff --git a/ext/Encode/t/perlio.t b/ext/Encode/t/perlio.t
index ed16796..d3161cc 100644
--- a/ext/Encode/t/perlio.t
+++ b/ext/Encode/t/perlio.t
@@ -146,7 +146,7 @@ SKIP:{
     # reading
     for my $utf (sort keys %bom){
 	my $bomed = $bom{$utf} . encode($utf, $str);
-	my $sfile = File::Spec->catfile($dir,".$utf.$seq.$$");
+	my $sfile = File::Spec->catfile($dir,".${utf}_${seq}_$$");
 	dump2file($sfile, $bomed);
 	my $utf_nobom = $utf; $utf_nobom =~ s/(LE|BE)$//o;
 	# reading
@@ -159,7 +159,7 @@ SKIP:{
     # writing
     for my $utf_nobom (qw/UTF-16 UTF-32/){
 	my $utf = $utf_nobom . 'BE';
-	my $sfile = File::Spec->catfile($dir,".$utf_nobom.$seq.$$");
+	my $sfile = File::Spec->catfile($dir,".${utf_nobom}_${seq}_$$");
 	my $bomed = $bom{$utf} . encode($utf, $str);
 	open  $fh, ">:encoding($utf_nobom)", $sfile or die "$sfile : $!";
 	print $fh $str;