Bug #85748 for Net-Traceroute-PurePerl: Bug using Net::Traceroute::PurePerl on Windows using Strawberry PERL

BUG: Only the last hop in a trace shows IP address and ms response time Example of bad output: Constant subroutine Net::Traceroute::PurePerl::IP_TTL redefined at C:/strawberry/perl/lib/constant.pm line 140. traceroute to www.google.com (74.125.226.243), 20 hops max, 60 byte packets 1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10 * 11 74.125.226.243 21.56 ms C:\>perl -v This is perl 5, version 16, subversion 1 (v5.16.1) built for MSWin32-x64-multi-thread Sample script to reproduce: use warnings; use strict; use Net::Traceroute::PurePerl; # Initialize global variables my $source = "172.28.0.21"; my $destination = "www.google.com"; # Subroutines sub traceroute { # Create a new traceroute instance my $t = new Net::Traceroute::PurePerl( source_address => $source, # Source address tracing from host => $destination, # Target host to traceroute to debug => 9, # Set to 9 for full debug max_ttl => 20, # max number of hops in path queries => 1, # number of pings per hop query_timeout => 2, # in seconds concurrent_hops=> 20, # number of hops to test in parallel packetlen => 60, # in bytes protocol => 'icmp', # valid choices: icmp or udp ); # Perform the actual traceroute $t->traceroute; # Print out the traceroute using built-in pretty_print method $t->pretty_print; } # Call subroutines &traceroute; exit 0; CMD prompt was ran as Administrator: DEBUG LEVEL 9 OUTPUT: C:\Users\N3NCY\workspace\pathwatch>pathwatch-0.pl C:/strawberry/perl/site/lib/Net/Traceroute.pm:Net::Traceroute::debug_print:230: Running in debug mode C:/strawberry/perl/site/lib/Net/Traceroute.pm:Net::Traceroute::debug_print:241: $VAR1 = bless( { 'query_timeout' => 2, 'protocol' => 'icmp', 'packetlen' => 60, 'max_ttl' => 20, 'queries' => 1, 'stat' => 2, 'source_address' => '172.28.0.21', 'trace_program' => 'traceroute', 'debug' => 9, 'concurrent_hops' => 20 }, 'Net::Traceroute::PurePerl' ); C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:248: Performing traceroute C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:272: Created ICMP socket to receive errors C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:702: Bound socket to 172.28.0.21 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 1 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 1 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 2 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 2 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 3 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 3 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 4 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 4 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 5 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 5 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 6 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 6 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 7 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 7 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 8 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 8 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 9 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 9 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 10 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 10 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 11 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 11 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 12 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 12 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 13 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 13 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 14 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 14 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 15 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 15 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 16 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 16 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 17 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 17 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 18 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 18 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 19 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 19 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:385: Sending packet 20 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:801: Set TTL to 20 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:447: Received packet from 74.125.226.243 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:552: Recieved response for 11 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:447: Received packet from 74.125.226.243 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:447: Received packet from 74.125.226.243 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:538: Packet 14 received after ID deletedC:/strawberry/perl/site/lib/Net/Trac eroute/PurePerl.pm:Net::Traceroute::debug_print:447: Received packet from 74.125 .226.243 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:538: Packet 17 received after ID deletedC:/strawberry/perl/site/lib/Net/Trac eroute/PurePerl.pm:Net::Traceroute::debug_print:447: Received packet from 74.125 .226.243 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:538: Packet 15 received after ID deletedC:/strawberry/perl/site/lib/Net/Trac eroute/PurePerl.pm:Net::Traceroute::debug_print:447: Received packet from 74.125 .226.243 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:538: Packet 16 received after ID deletedC:/strawberry/perl/site/lib/Net/Trac eroute/PurePerl.pm:Net::Traceroute::debug_print:447: Received packet from 74.125 .226.243 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:538: Packet 13 received after ID deletedC:/strawberry/perl/site/lib/Net/Trac eroute/PurePerl.pm:Net::Traceroute::debug_print:447: Received packet from 74.125 .226.243 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:538: Packet 18 received after ID deletedC:/strawberry/perl/site/lib/Net/Trac eroute/PurePerl.pm:Net::Traceroute::debug_print:447: Received packet from 74.125 .226.243 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:538: Packet 20 received after ID deletedC:/strawberry/perl/site/lib/Net/Trac eroute/PurePerl.pm:Net::Traceroute::debug_print:447: Received packet from 74.125 .226.243 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:538: Packet 19 received after ID deletedC:/strawberry/perl/site/lib/Net/Trac eroute/PurePerl.pm:Net::Traceroute::debug_print:589: Timeout for 1 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:589: Timeout for 10 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:589: Timeout for 2 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:589: Timeout for 3 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:589: Timeout for 4 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:589: Timeout for 5 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:589: Timeout for 6 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:589: Timeout for 7 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:589: Timeout for 8 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:589: Timeout for 9 0 C:/strawberry/perl/site/lib/Net/Traceroute/PurePerl.pm:Net::Traceroute::debug_pr int:618: No more packets, reached max_ttl traceroute to www.google.com (74.125.226.243), 20 hops max, 60 byte packets 1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10 * 11 74.125.226.243 18.38 ms Thank you, Ernest G. Wilson II Email: ErnestGWilsonII@gmail.com