[patch@25744] t/op/local.t - change 25514 broke VMS

[John E. Malmberg]

Change 25514 added a test that makes a list assignment to %ENV.
According to comments in mg.c, this will not work on VMS, EPOC, and SYMBIAN.

This patch only fixes the VMS case to skip that test as it is the only 
one I can test.

-John
[EMAIL PROTECTED]
Personal Opinion Only

--- /rsync_root/perl/t/op/local.t       Thu Oct 13 05:07:13 2005
+++ t/op/local.t        Thu Oct 13 10:15:30 2005
@@ -6,6 +6,12 @@
 }
 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 @@
 # 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);