fix warning in UDP test

1 files changed, 1 insertions, 1 deletions

diff --git a/t/udp.t b/t/udp.t
index cb63f0e..d79b07a 100755
--- a/t/udp.t
+++ b/t/udp.t
@@ -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);