diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2005-10-13 06:28:23 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-13 14:18:50 +0000 |
| commit | 13414bd57a95312231e2bee41d173b09580d2351 (patch) | |
| tree | b386838ee23a80b6835f067acd5dc7302d40b814 /t | |
| parent | 0be7d46277584d2aedd86c792092a306a69a45b8 (diff) | |
| download | perl-13414bd57a95312231e2bee41d173b09580d2351.tar.gz | |
[patch@25744] t/op/local.t - change 25514 broke VMS
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <434E6F07.5020108@qsl.net>
p4raw-id: //depot/perl@25752
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/local.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/op/local.t b/t/op/local.t index ca6f63d75c..3ab828838b 100755 --- a/t/op/local.t +++ b/t/op/local.t @@ -6,6 +6,12 @@ BEGIN { } plan tests => 85; +my $list_assignment_supported = 1; + +#mg.c says list assignment not supported on VMS, EPOC, and SYMBIAN. +$list_assignment_supported = 0 if ($^O eq 'VMS'); + + sub foo { local($a, $b) = @_; local($c, $d); @@ -253,7 +259,10 @@ is($ENV{_Z_}, 'c'); # local() should preserve the existenceness of %ENV elements ok(! exists $ENV{_A_}); ok(! exists $ENV{_B_}); -{ + +SKIP: { + skip("Can't make list assignment to \%ENV on this system") + unless $list_assignment_supported; my $d = join("\n", map { "$_=>$ENV{$_}" } sort keys %ENV); local %ENV = %ENV; is(join("\n", map { "$_=>$ENV{$_}" } sort keys %ENV), $d); |