From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 17 Nov 2010 04:23:24 +0000 (-0800)
Subject: Get cpan/CGI/t/http.t working on VMS again
X-Git-Tag: accepted/trunk/20130322.191538~6743
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=24e05dcb39b36ab68d1926496cf195f222ec5caf;p=platform%2Fupstream%2Fperl.git

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
--- 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';
 }