skip "No setlocale", 24;
} elsif (!setlocale(&POSIX::LC_ALL, "en_GB.ISO8859-1")) {
skip "Could not setlocale to en_GB.ISO8859-1", 24;
- } elsif ($^O eq 'dec_osf') {
+ } elsif ($^O eq 'dec_osf' || $^O eq 'VMS') {
skip "$^O has broken en_GB.ISO8859-1 locale", 24;
} else {
use locale;
my $u = UTF8Toggle->new("$pad\311\n$trail");
my $l = UTF8Toggle->new("$pad\351\n$trail", 1);
if ($operator eq 'print') {
+ no warnings 'utf8';
print $fh $u;
print $fh $u;
print $fh $u;