diff -ruN Net-Pcap-0.16-orig/eg/pcapdump Net-Pcap-0.16/eg/pcapdump
--- Net-Pcap-0.16-orig/eg/pcapdump 2008-01-01 09:12:30.000000000 +0000
+++ Net-Pcap-0.16/eg/pcapdump 2010-03-02 16:21:42.278072411 +0000
@@ -129,7 +129,7 @@
}
elsif ($ipframe->{proto} == IP_PROTO_UDP) {
my $udpframe = NetPacket::UDP->decode($ipframe->{data});
- $proto = "TCP";
+ $proto = "UDP";
$src_port = $udpframe->{src_port};
$dest_port = $udpframe->{dest_port};
$payload = $udpframe->{data};