projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix users delete? messages, local::pcprot()
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index e1b1ea45b0fc5c3b87d01fdd6c767f4d17b6ec15..67dc56632d80b4d2e06abcb509daa2d239c7c71e 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";