This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get cpan/CGI/t/http.t working on VMS again
authorFather Chrysostomos <sprout@cpan.org>
Wed, 17 Nov 2010 04:23:24 +0000 (20:23 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 17 Nov 2010 04:40:12 +0000 (20:40 -0800)
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.

cpan/CGI/t/http.t

index 324da26..2ed3863 100644 (file)
@@ -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';
 }