--- perl-5.8.1-RC2.orig/ext/Encode/t/enc_eucjp.t 2003-07-10 02:10:44.000000000 -0400
+++ perl-5.8.1-RC2/ext/Encode/t/enc_eucjp.t 2003-07-21 11:41:51.922003000 -0400
@@ -31,8 +31,14 @@
for my $i (0..$#c) {
no warnings 'pack';
- push @f, "f$i";
- open(F, ">f$i") or die "$0: failed to open 'f$i' for writing: $!";
+ if ( $^O eq 'VMS' ) {
+ push @f, "f$i.";
+ open(F, ">f$i.") or die "$0: failed to open 'f$i.' for writing: $!";
+ }
+ else {
+ push @f, "f$i";
+ open(F, ">f$i") or die "$0: failed to open 'f$i' for writing: $!";
+ }
The code could be simpler with a little less duplication. Here's a first stab at making things easier:
sub filename
{
my ($name, $mode) = @_;
$name .= '.' if $^O eq 'VMS;
return "$mode$name";
}-- c
