From 582bd8796b98142a11f99996b4e934a363b2cac0 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 14 Oct 2010 14:04:55 -0700 Subject: [PATCH] Make cpan/CGI/t/http.t (hopefully) compatible with VMS I will submit a similar patch upstream in a few days. --- cpan/CGI/t/http.t | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/cpan/CGI/t/http.t b/cpan/CGI/t/http.t index c46c8ff..2ed3863 100644 --- a/cpan/CGI/t/http.t +++ b/cpan/CGI/t/http.t @@ -7,8 +7,6 @@ use lib qw(t/lib); use Test::More tests => 7; use CGI; -%ENV=(); - my $cgi = CGI->new(); { @@ -36,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. + 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'; } -- 1.8.3.1