Handle Referer not having a trailing slash

Fixes #415.
2016-11-01 11:00:30 +01:00 · 2016-11-01 11:00:30 +01:00 · ef711ce845
parent d6ccbeedbd
commit ef711ce845
1 changed files with 2 additions and 0 deletions
--- a/src/lib/Hydra/Controller/Root.pm
+++ b/src/lib/Hydra/Controller/Root.pm
@ -66,6 +66,8 @@ sub begin :Private {
        my $referer = $c->req->header('Origin');
        $referer //= $c->req->header('Referer');
        my $base = $c->req->base;
+        die unless $base =~ /\/$/;
+        $referer .= "/";
        error($c, "POST requests should come from ‘$base’.")
            unless defined $referer && substr($referer, 0, length $base) eq $base;
    }