X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=a5d5250b161014a817ce5d0c334035600018a18b;hb=4d3067793942b3f4518615906dde50db5b76464a;hp=fb86ee2e67273d996176fa31b8ae4b4ac54981ad;hpb=7a356e1acb6d7e513e2004d75c6c39f0c326081a;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index fb86ee2e..a5d5250b 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -279,7 +279,7 @@ sub pc50
 # generate pings
 sub pc51
 {
-  my ($self, $to, $from, $val) = @_;
+  my ($to, $from, $val) = @_;
   return "PC51^$to^$from^$val^";
 }
 1;