udp: payload length parse fix

mirage · Mar 22, 2017 · 2d77d05 · 2d77d05
1 parent 1f1da8e
commit 2d77d05
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/udp/udp_packet.ml b/lib/udp/udp_packet.ml
@@ -25,7 +25,7 @@ module Unmarshal = struct
         Error "UDP header claimed a total length < the size of just the header"
       else begin
         let payload_len = length_from_header - sizeof_udp in
-        if payload_len > length_of_buffer
+        if payload_len > (length_of_buffer - sizeof_udp)
         then Error (Printf.sprintf
 	      "UDP header claimed a payload longer than the supplied buffer: %d vs %d."
               payload_len length_of_buffer)