diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-09-16 07:20:45 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-17 20:41:02 -0700 |
| commit | 5512f27187761a7d316f00f01f7c97b23c9d3f08 (patch) | |
| tree | fa0b43c539083668067697d238c171d0e3eb3e65 | |
| parent | 53cf29abd51a29b2de6000dd437ff6ce6e638a50 (diff) | |
| download | perl-5512f27187761a7d316f00f01f7c97b23c9d3f08.tar.gz | |
t/run/mad.t: Avoid %ENV assignment
I see no skip on VMS, so use an %ENV localisation that it supports.
| -rw-r--r-- | t/run/mad.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/run/mad.t b/t/run/mad.t index f7771536bd..83023c53ef 100644 --- a/t/run/mad.t +++ b/t/run/mad.t @@ -30,7 +30,7 @@ END { 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'); @@ -38,7 +38,7 @@ plan tests => 4; } { - 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'); |