patch@26180 - t/op/array.t : Can't reset %ENV on VMS

From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <43828033.9040708@qsl.net>

p4raw-id: //depot/perl@26186

diff --git a/t/op/array.t b/t/op/array.t
index 27565de..3a6a792 100755 (executable)
--- a/t/op/array.t
+++ b/t/op/array.t
@@ -61,7 +61,7 @@ is($r, "0,0");
 $bar[2] = '2';
 $r = join(',', $#bar, @bar);
 is($r, "2,0,,2");
-reset 'b';
+reset 'b' if $^O ne 'VMS';
 @bar = ();
 $bar[0] = '0';
 $r = join(',', $#bar, @bar);