diff options
-rwxr-xr-x | t/udp.t | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -192,7 +192,7 @@ sub construct_udp_message { my $cur_dg =""; my $cur_udp_header =""; for (my $cur_dg_index = 0; $cur_dg_index < $num_datagram; $cur_dg_index++) { - $cur_dg = %$datagrams->{$cur_dg_index}; + $cur_dg = $datagrams->{$cur_dg_index}; isnt($cur_dg,"","missing datagram for segment $cur_dg_index"); $cur_udp_header=substr($cur_dg, 0, 8); $msg .= substr($cur_dg,8); |