X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=95c1981359262202c5e255752327453540f640a7;hb=d08aaa3e89259031f2d9b70a83ae194620870e7f;hp=52d4d7281b6fee6744fc7fa957141a492f3bdd7d;hpb=9d5d323e62f989f5a1edc569ed715e6aad3ec072;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 52d4d728..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^~";
 }