Get cpan/CGI/t/http.t working on VMS again

This stopped working with the 84601d63a (the 3.50 upgrade).

This patch was not applied to the CGI.pm repository until
after the new release.

diff --git a/cpan/CGI/t/http.t b/cpan/CGI/t/http.t
index 324da26..2ed3863 100644 (file)
--- a/cpan/CGI/t/http.t
+++ b/cpan/CGI/t/http.t
@@ -34,8 +34,11 @@ my $cgi = CGI->new();
     # https()
     # The same as http(), but operates on the HTTPS environment variables present when the SSL protocol is in
     # effect.  Can be used to determine whether SSL is turned on.
-    local %ENV;
-    @ENV{qw/ HTTPS HTTPS_KEYSIZE /} = ('ON', 512);
+    my @expect = grep /^HTTPS/, keys %ENV;
+    push @expect, 'HTTPS'         if not exists $ENV{HTTPS};
+    push @expect, 'HTTPS_KEYSIZE' if not exists $ENV{HTTPS_KEYSIZE};
+    local $ENV{'HTTPS'} = 'ON';
+    local $ENV{'HTTPS_KEYSIZE'} = 512;
     is $cgi->https(), 'ON', 'scalar context to check SSL is on';
-    ok eq_set( [$cgi->https()], [qw(HTTPS HTTPS_KEYSIZE)]), 'list context returns https keys';
+    ok eq_set( [$cgi->https()], \@expect), 'list context returns https keys';
 }