override request method if request method is POST

--- MethodOverride.pm.orig      2009-10-14 17:58:02.000000000 +0900
+++ MethodOverride.pm   2009-10-14 18:03:03.000000000 +0900
@@ -10,12 +10,14 @@
     my $self = shift;
     my $env  = shift;
 
-    my $key = $self->header || 'X-HTTP-Method-Override';
-       $key =~ tr/-/_/;
-
-    my $method = $env->{"HTTP_" . uc($key)};
-    if (defined $method && $allowed_method{$method}) {
-        $env->{REQUEST_METHOD} = $method;
+    if (uc $env->{REQUEST_METHOD} eq 'POST' ) {
+        my $key = $self->header || 'X-HTTP-Method-Override';
+           $key =~ tr/-/_/;
+
+        my $method = $env->{"HTTP_" . uc($key)};
+        if (defined $method && $allowed_method{$method}) {
+            $env->{REQUEST_METHOD} = $method;
+        }
     }
 
     $self->app->($env);