2. fix stat/msg a bit more

[spider.git] / perl / DXProtout.pm

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 52d4d7281b6fee6744fc7fa957141a492f3bdd7d..95c1981359262202c5e255752327453540f640a7 100644 (file)
--- 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^~";
 }