X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=blobdiff_plain;f=lib%2FCGI%2FMaypole.pm;h=df75712ac261c52c1dac43228de2d88e4dc48207;hp=dda15fcd7a52df6c8dabd3616b4bb22223d1e77a;hb=50801f50404838954238fb4a87d4df5dda50cd76;hpb=ac7eb8f3a1780223d5376e623ab90af3c8f83f04 diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm index dda15fc..df75712 100644 --- a/lib/CGI/Maypole.pm +++ b/lib/CGI/Maypole.pm @@ -7,7 +7,7 @@ use CGI::Simple; use Maypole::Headers; use Maypole::Constants; -our $VERSION = '2.11'; +our $VERSION = '2.12'; __PACKAGE__->mk_accessors( qw/cgi/ ); @@ -71,9 +71,11 @@ functionality. See L for these: =cut -sub get_request -{ - shift->cgi( CGI::Simple->new ); +sub get_request { + my $self = shift; + my $request_options = $self->config->request_options || {}; + $CGI::Simple::POST_MAX = $request_options->{POST_MAX} if ($request_options->{POST_MAX}); + $self->cgi( CGI::Simple->new ); } =item parse_location