projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow synonyms for localhost
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index e1b1ea45b0fc5c3b87d01fdd6c767f4d17b6ec15..ac675f7cafefa6496064a65172c27a9a6bc32e88 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-429,14
+429,15
@@
sub normal
}
}
}
}
+ my $origin = $self->{call};
+
if (defined &Local::pcprot) {
my $r;
if (defined &Local::pcprot) {
my $r;
- eval { $r = Local::pcprot($self, $pcno, $line, @field); };
+ eval { $r = Local::pcprot($self, $pcno, $line,
$origin, \
@field); };
return if $r; # i.e don't process it
}
# send it out for processing
return if $r; # i.e don't process it
}
# send it out for processing
- my $origin = $self->{call};
no strict 'subs';
my $sub = "handle_$pcno";
no strict 'subs';
my $sub = "handle_$pcno";
@@
-1081,7
+1082,7
@@
sub get_hops
{
my $pcno = shift;
my $hops = $DXProt::hopcount{$pcno};
{
my $pcno = shift;
my $hops = $DXProt::hopcount{$pcno};
- $hops = $DXProt::def_hopcount
if !
$hops;
+ $hops = $DXProt::def_hopcount
unless
$hops;
return "H$hops";
}
return "H$hops";
}