| Subject: | localhost on BeOS w/fix |
I don't know what localhost is on BeOS, but it isn't 127.0.0.1. I know,
I know, the problem is with BeOS NOT with Test::Reporter, but could you
please provide a workaround anyway?
$ telnet localhost 25
Trying 88.208.192.22..
Proposed Fix:
*** OReporter.pm Wed Jan 20 16:42:38 2010
--- Reporter.pm Wed Jan 20 16:54:56 2010
***************
*** 629,637 ****
}
if (eval {require Net::SMTP}) {
my $host;
! for $host (qw(mailhost smtp localhost)) {
# default timeout is 120, which is Very Very Long,
so lower
# it to 5 seconds. Total slowdown will not be more than
--- 629,644 ----
}
if (eval {require Net::SMTP}) {
+ my @hosts;
+
+ if($^O eq 'beos') {
+ @hosts = qw(mailhost smtp);
+ } else {
+ @hosts = qw(mailhost smtp localhost);
+ }
my $host;
! for $host (@hosts) {
# default timeout is 120, which is Very Very Long,
so lower
# it to 5 seconds. Total slowdown will not be more than
$