Skip Menu |
 

This queue is for tickets about the Net-Traceroute CPAN distribution.

Report information
The Basics
Id: 21286
Status: new
Priority: 0/
Queue: Net-Traceroute

People
Owner: Nobody in particular
Requestors: alexchorny [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.09
Fixed in: (no value)



Subject: patch: Partial support for Win32; test hangs
Download (untitled) / with headers
text/plain 414b
It is 'tracert' under Win32. '-n' should be replaced with '-d' http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/tracert.mspx?mfr=true In tests tracert to localhost fails, although it return correct results when I'm starting it manually at command prompt. tracert to remote host hangs. $self->_text_accumulator() is empty after execution. ------- Alexandr Ciornii, http://chorny.net
Subject: Traceroute.pm
Download Traceroute.pm
text/x-perl 27k

Message body is not shown because it is too large.

Subject: Traceroute.pm.patch
Download Traceroute.pm.patch
text/x-diff 1.5k
*** Traceroute.pm.dist Sat Sep 2 22:15:23 2006 --- Traceroute.pm Sat Sep 2 22:13:55 2006 *************** *** 176,182 **** # Initialize debug if it isn't already. $self->debug(0) if(!defined($self->debug)); ! $self->trace_program("traceroute") if(!defined($self->trace_program)); $self->debug_print(1, "Running in debug mode\n"); --- 176,188 ---- # Initialize debug if it isn't already. $self->debug(0) if(!defined($self->debug)); ! if(!defined($self->trace_program)) { ! if ($^O eq 'MSWin32') { ! $self->trace_program("tracert") ; ! } else { ! $self->trace_program("traceroute") ; ! } ! } $self->debug_print(1, "Running in debug mode\n"); *************** *** 401,407 **** # XXX we probably shouldn't throw stderr away. # XXX we probably shouldn't use named filehandles. open(SAVESTDERR, ">&STDERR"); ! open(STDERR, ">/dev/null"); my $pipe = new IO::Pipe; --- 407,414 ---- # XXX we probably shouldn't throw stderr away. # XXX we probably shouldn't use named filehandles. open(SAVESTDERR, ">&STDERR"); ! use File::Spec; ! open(STDERR, ">".File::Spec->devnull()); my $pipe = new IO::Pipe; *************** *** 446,452 **** my @result; ! push(@result, "-n"); my($key, $flag); --- 453,463 ---- my @result; ! if ($^O eq 'MSWin32') { ! push(@result, "-d"); ! } else { ! push(@result, "-n"); ! } my($key, $flag);


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.