added ping and rcmd commands

[spider.git] / perl / DXProtout.pm

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index fb86ee2e67273d996176fa31b8ae4b4ac54981ad..a5d5250b161014a817ce5d0c334035600018a18b 100644 (file)
--- 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;