improve HTTP headers; can't post with GET request

[ott/bsta] / goto.1.pl

diff --git a/goto.1.pl b/goto.1.pl
index 3fc45cd5d013873caf798b099582f31815f917e5..a126160bf2a82e5595144fe241008a047184924a 100644 (file)
--- a/goto.1.pl
+++ b/goto.1.pl
@@ -87,7 +87,7 @@ if ($ENV{'REQUEST_METHOD'} =~ /^(HEAD|GET|POST)$/) {
        $method = $1;
 }
 else{
-       exit fail_method($ENV{'REQUEST_METHOD'}, 'GET, POST, HEAD');
+       exit fail_method($ENV{'REQUEST_METHOD'}, ['GET', 'POST', 'HEAD']);
 }
 
 %http = read_header_env(\%ENV);