X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=95c1981359262202c5e255752327453540f640a7;hb=a38e5ea93005099bdd5486fda443595d20a26e13;hp=bd210d880be9ed06a12813a5805b9c3a51bf82ad;hpb=1fae727d9da6945d99ccdcb79436eb579b47a3b7;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index bd210d88..95c19813 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -195,6 +195,7 @@ sub pc28
 	my $time = ztime($t);
 	$private = $private ? '1' : '0';
 	$rr = $rr ? '1' : '0';
+	$subject ||= ' ';
 	return "PC28^$tonode^$fromnode^$to^$from^$date^$time^$private^$subject^ ^5^$rr^ ^$origin^~";
 }
 
@@ -278,9 +279,8 @@ sub pc41
 	my $call = shift;
 	$call = shift if ref $call;
 	
-	my ($sort, $info) = @_;
-	$sort ||= '0';
-	$info ||= ' ';
+	my $sort = shift || '0';
+	my $info = shift || ' ';
 	my $hops = shift || get_hops(41);
 	return "PC41^$call^$sort^$info^$hops^~";
 }