From c0387e3268a27925ccc5919add9559dbd749f760 Mon Sep 17 00:00:00 2001 From: dormando Date: Thu, 26 Jan 2012 12:07:48 -0800 Subject: fix warning in UDP test --- t/udp.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- cgit v1.2.1