}
use strict;
use Test::More tests => 27;
+#use Test::More qw(no_plan);
use Encode;
use File::Basename;
use File::Spec;
}
close($dst);
close($src);
+
TODO:
{
local $TODO = 'needs debugging on VMS' if $^O eq 'VMS';
}
is($enc->name,'euc-jp');
+
END {
1 while unlink($utf,$rnd);
}