FIX: remove deprecated syntax by perl version
@@ -203,7 +203,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);
