I see no skip on VMS, so use an %ENV localisation that it supports.
plan tests => 4;
{
- local %ENV = %ENV;
+ delete local $ENV{$_} for keys %ENV;
my $fn = File::Spec->catfile(File::Spec->curdir(), "withoutT.xml");
$ENV{PERL_XMLDUMP} = $fn;
fresh_perl_is('print q/hello/', '', {}, 'mad without -T');
}
{
- local %ENV = %ENV;
+ delete local $ENV{$_} for keys %ENV;
my $fn = File::Spec->catfile(File::Spec->curdir(), "withT.xml");
fresh_perl_is('print q/hello/', 'hello', { switches => [ "-T" ] },
'mad with -T');