Additional HTTP POST/PUT method robustness fix.

bfg · Mar 27, 2012 · cacce52 · cacce52
1 parent b4db4f3
commit cacce52
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/lib/P9/AA/Protocol/HTTP.pm b/lib/P9/AA/Protocol/HTTP.pm
@@ -237,7 +237,15 @@ sub parse {
 			$req = undef;
 			goto outta_parse;
 		}
-
+
+		# try to convert it into int
+		{ no warnings; $cl += 0 }
+    # too big request body?
+	  if ($cl > 1024 * 1024) {
+	    $self->error("Request entity too big (413).");
+      return undef;
+	  }
+
 		# has client sent Expect request header?
 		if (defined(my $e = $req->header('Expect'))) {
 		  $e = lc($e);
@@ -246,16 +254,8 @@ sub parse {
 		  }
 		}
 
-		# try to convert it into int
-		{ no warnings; $cl += 0 }
-
 		# read content body
 		if ($do_read && $cl > 0) {
-		  # too big request body?
-		  if ($cl > 1024 * 1024) {
-		    $self->error("Request entity too big (413).");
-        return undef;
-		  }
 
 			my $buf = '';
 			my $r = read($fd, $buf, $cl);