shell bypass 403
package Plack::TempBuffer;
use strict;
use warnings;
use parent 'Stream::Buffered';
sub new {
my $class = shift;
if (defined $Plack::TempBuffer::MaxMemoryBufferSize) {
warn "Setting \$Plack::TempBuffer::MaxMemoryBufferSize is deprecated. "
. "You should set \$Stream::Buffered::MaxMemoryBufferSize instead.";
$Stream::Buffered::MaxMemoryBufferSize = $Plack::TempBuffer::MaxMemoryBufferSize;
}
return $class->SUPER::new(@_);
}
1;