From 3e9dff3f8ca23c07e7077085d75229eaba765e97 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 11 Mar 2010 13:45:35 +0100
Subject: fix

---
 lib/Plack/Middleware/ETag.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'lib')

diff --git a/lib/Plack/Middleware/ETag.pm b/lib/Plack/Middleware/ETag.pm
index d70bc35..ad1848f 100644
--- a/lib/Plack/Middleware/ETag.pm
+++ b/lib/Plack/Middleware/ETag.pm
@@ -11,15 +11,14 @@ our $VERSION = '0.01';
 use parent qw/Plack::Middleware/;
 
 sub call {
-    my ( $self, $env ) = @_;
-
-    my $res     = $self->app->($env);
-    my $headers = $res->[1];
+    my $self = shift;
+    my $res     = $self->app->(@_);
 
     $self->response_cb(
         $res,
         sub {
             my $res = shift;
+            my $headers = $res->[1];
             return if ( !defined $res->[2] );#|| ref $res->[2] ne 'ARRAY' );
             return if ( Plack::Util::header_exists( $headers, 'ETag' ) );
             my $etag;
-- 
cgit v1.2.3