gistfile1.txt

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