Change 19644: [PATCH] ext/Encode/t/perlio.t filename tweak

[Jarkko Hietaniemi]

Change 19644 by [EMAIL PROTECTED] on 2003/05/31 05:31:11

        Subject: [PATCH] ext/Encode/t/perlio.t filename tweak
        From: "Craig A. Berry" <[EMAIL PROTECTED]>
        Date: Fri, 30 May 2003 13:08:01 -0500
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/Encode/t/perlio.t#10 edit

Differences ...

==== //depot/perl/ext/Encode/t/perlio.t#10 (text) ====
Index: perl/ext/Encode/t/perlio.t
--- perl/ext/Encode/t/perlio.t#9~19595~ Fri May 23 07:19:53 2003
+++ perl/ext/Encode/t/perlio.t  Fri May 30 22:31:11 2003
@@ -146,7 +146,7 @@
     # 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 @@
     # 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;
End of Patch.