projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a253a7d
)
remove 'u=' if 'o=' eq mycall
author
minima
<minima>
Sat, 21 Jan 2006 17:46:08 +0000
(17:46 +0000)
committer
minima
<minima>
Sat, 21 Jan 2006 17:46:08 +0000
(17:46 +0000)
perl/DXXml/Ping.pm
patch
|
blob
|
history
diff --git
a/perl/DXXml/Ping.pm
b/perl/DXXml/Ping.pm
index 06d96ff617cff373e0487dad01f8021dbbaa2ecf..d70d6e9a46104cb379b95653af96862f4b0388b0 100644
(file)
--- a/
perl/DXXml/Ping.pm
+++ b/
perl/DXXml/Ping.pm
@@
-63,7
+63,7
@@
sub add
my $ref = $pings{$to} || [];
my $r = {};
my $self = DXXml::Ping->new(to=>$to, '-hirestime'=>[ gettimeofday ], s=>'1');
- $self->{u} = $from;
+ $self->{u} = $from
unless $from eq $main::mycall
;
$self->{'-via'} = $via if $via && DXChannel::get($via);
$self->{o} = $main::mycall;
$self->route($dxchan);