X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=dc4257a8689c2cb6e329edfa56e878a742af700f;hb=9a31104f31ce5d80a659dea3de9dbf9a5d46ef8e;hp=f08fef492bbfff7afd364cf1cf2c290593380494;hpb=598233c22daef138cd7b0a653d3165b4a16905e2;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index f08fef49..dc4257a8 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -392,8 +392,9 @@ sub pc59
 	my @out;
 	my $sort = shift;
 	my $hexstamp = shift || hexstamp();
+	my $node = shift;
 	
-	my $node = $_[0]->call;
+	my $s = "PC59^$sort^$hexstamp^$node";
 	for (@_) {
 		next unless $_;
 		my $ref = $_;
@@ -401,7 +402,7 @@ sub pc59
 		my $here = $ref->here;
 		$s .= $ref->isa('Route::Node') ? "^N$here$call" : "^U$here$call";
 	}
-	push @out, "PC59^$sort^$hexstamp^$node^$s" . sprintf "^%s^", get_hops(59);
+	push @out, sprintf "$s^%s^", get_hops(59);
 	return @out;
 }