projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e0fa9a0
)
make it even harder to falseluy propafgate pc92
author
minima
<minima>
Mon, 22 Jan 2007 22:02:07 +0000
(22:02 +0000)
committer
minima
<minima>
Mon, 22 Jan 2007 22:02:07 +0000
(22:02 +0000)
perl/DXProtHandle.pm
patch
|
blob
|
history
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index 35d656d7cfd84c91d0649a23d133a42ac6e62c45..a1e552f7620097ce70eaa4e7513191b5ca47f2d2 100644
(file)
--- a/
perl/DXProtHandle.pm
+++ b/
perl/DXProtHandle.pm
@@
-1485,15
+1485,17
@@
sub handle_92
if ($pcall eq $self->{call} && $self->{state} eq 'init') {
$self->state('init92');
if ($pcall eq $self->{call} && $self->{state} eq 'init') {
$self->state('init92');
+ $self->{do_pc9x} = 1;
+ dbg("Do pc9x set on $pcall");
+ }
+ unless ($self->{do_pc9x}) {
+ dbg("PCPROT: PC9x come in from non-PC9x node, ignored") if isdbg('chanerr');
+ return;
}
my $parent = check_pc9x_t($pcall, $t, 92, 1) || return;
my $oparent = $parent;
}
my $parent = check_pc9x_t($pcall, $t, 92, 1) || return;
my $oparent = $parent;
- if (!$self->{do_pc9x} && $self->{call} eq $pcall && $self->state =~ /^init/) {
- $self->{do_pc9x} = 1;
- dbg("Do_px9x set on $pcall");
- }
$parent->do_pc9x(1);
$parent->via_pc92(1);
$parent->do_pc9x(1);
$parent->via_pc92(1);