X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=c04e4a1fdf84bd93e72dcec63883f2736553958a;hb=1cbb4d2083af4212ff4ed84dc79b9e5a22387ab2;hp=ccf912910559209e5d567a377042f205dcd5c704;hpb=2f2b6dbde8a63949fc065dc96a9cb24224dcda7b;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index ccf91291..c04e4a1f 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -900,6 +900,7 @@ sub send_pc92_config
 
 sub send_pc92_update
 {
+	my $self = shift;
 	my $call = shift;
 
 	dbg('DXProt::send_pc92_update') if isdbg('trace');