X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=822beea5fe7bb3ce5ba0c0beaf81f5c206705f40;hb=4e5b3de7a26563d94678fb790b8a1e2c4daaac8d;hp=8cc5137f59684c096eb79f4e6c8132becf723023;hpb=8e45a3dac2e136dc0c9d6f1e78f8c048a8d7ba21;p=spider.git diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm index 8cc5137f..822beea5 100644 --- a/perl/DXProtout.pm +++ b/perl/DXProtout.pm @@ -338,6 +338,7 @@ sub pc85 my($fromnode, $tonode, $call, $msg) = @_; return "PC85^$tonode^$fromnode^$call^$msg^~"; } + 1; __END__