Minor version number update on Admin Manual

[spider.git] / perl / DXProtout.pm

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