In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/582bd8796b98142a11f99996b4e934a363b2cac0?hp=da4061d33235769184e98cc28663a2dd54302fa8>
- Log ----------------------------------------------------------------- commit 582bd8796b98142a11f99996b4e934a363b2cac0 Author: Father Chrysostomos <[email protected]> Date: Thu Oct 14 14:04:55 2010 -0700 Make cpan/CGI/t/http.t (hopefully) compatible with VMS I will submit a similar patch upstream in a few days. M cpan/CGI/t/http.t commit 647a6853e64193dea1a29579aae3a477bcfbac3c Author: Father Chrysostomos <[email protected]> Date: Thu Oct 14 13:45:13 2010 -0700 perldelta: Missing a C from C<> M pod/perldelta.pod ----------------------------------------------------------------------- Summary of changes: cpan/CGI/t/http.t | 7 ++++--- pod/perldelta.pod | 2 +- 2 files changed, 5 insertions(+), 4 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'; } diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 06862de..3a7d5c6 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -643,7 +643,7 @@ Many functions ending with pvn now have equivalent pv/pvs/sv versions. =item * -The C<save_freeop>, C<save_op>, C<save_pushi32ptr> and <save_pushptrptr> +The C<save_freeop>, C<save_op>, C<save_pushi32ptr> and C<save_pushptrptr> functions have been added to the API. =item * -- Perl5 Master Repository
