Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
package Plack::Middleware::IERequestRearrange;
use strict;
use parent qw(Plack::Middleware);
sub call {
my($self, $env) = @_;
# IE sent wrong formatted value(i.e. "Thu, 03 Dec 2009 01:46:32 GMT; length=17936")
($env->{HTTP_IF_MODIFIED_SINCE}) = (split /;/, $env->{HTTP_IF_MODIFIED_SINCE});
$self->app->($env);
}
1;
__END__
=head1 NAME
Plack::Middleware::IERequestRearrange - fix IE request bug
=head1 SYNOPSIS
use Plack::Builder;
builder {
enable 'IERequestRearrange';
$app;
};
=head1 DESCRIPTION
Plack::Middleware::IERequestRearrange
=head1 AUTHOR
Masahiro Chiba
Steve Cook
=head1 SEE ALSO
L<Plack::Middleware> L<Plack::Builder>
=cut
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.