projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added spanish help file, altered help to include new langyages
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index ec18e19f499f4298921d127909f01ab6644c14fe..3681bfbf35fee93b3c8fbbe96baf3bf716a1460a 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-693,9
+693,8
@@
sub normal
# input filter if required
return unless $self->in_filter_route($parent);
# input filter if required
return unless $self->in_filter_route($parent);
- my @rout = $parent->del_user($uref);
-
- $self->route_pc17($parent, @rout) if @rout;
+ $parent->del_user($uref);
+ $self->route_pc17($parent, $uref);
return;
}
return;
}
@@
-1156,7
+1155,7
@@
sub normal
return;
}
@field = map { unpad($_) } @field;
return;
}
@field = map { unpad($_) } @field;
- if (WCY::dup($d
,@field[3..7]
)) {
+ if (WCY::dup($d)) {
dbg("PCPROT: Dup WCY Spot ignored\n") if isdbg('chanerr');
return;
}
dbg("PCPROT: Dup WCY Spot ignored\n") if isdbg('chanerr');
return;
}
@@
-1165,7
+1164,7
@@
sub normal
my $rep;
eval {
my $rep;
eval {
- $rep = Local::w
wv
($self, @field[1..12]);
+ $rep = Local::w
cy
($self, @field[1..12]);
};
# dbg("Local::wcy error $@") if isdbg('local') if $@;
return if $rep;
};
# dbg("Local::wcy error $@") if isdbg('local') if $@;
return if $rep;