chiark / gitweb /
fix
[cgi-auth-flexible.git] / cgi-auth-flexible.pm
index e5b89244476da131f03615daf19a367b6c12c0ac..c3df875d1bbd266ea545c7d961c96e00d7d82a67 100644 (file)
@@ -884,12 +884,17 @@ sub _assert_checked ($) {
     die "unchecked" unless exists $r->{Divert};
 }
 
+sub _must_be_post ($) {
+    my ($r) = @_;
+    my $meth = $r->_ch('get_method');
+    die "mutating non-POST" if $meth ne 'POST';
+}
+
 sub check_mutate ($) {
     my ($r) = @_;
     $r->_assert_checked();
     die if $r->{Divert};
-    my $meth = $r->_ch('get_method');
-    die "mutating non-POST" if $meth ne 'POST';
+    $r->_must_be_post();
 }
 
 #---------- output ----------