X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=eafb591dac4d64a5d3da6db501a150b116130794;hb=e72ce56ce6973656acb064366459d54cda85f8cc;hp=8b415974ed55cef98fd1062cc448576b8ca02a5e;hpb=0a67d4205afe425cd3e06516835956cbb94dff49;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 8b415974..eafb591d 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -420,6 +420,12 @@ sub normal
 		}
 	}
 
+	if (defined &Local::pcprot) {
+		my $r;
+		eval { $r = Local::pcprot($self, $pcno, $line, @field); };
+		return if $r;			# i.e don't process it
+	}
+
 	# send it out for processing
 	my $origin = $self->{call};
 	no strict 'subs';