more bandaids

[spider.git] / perl / DXProtout.pm

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index bd210d880be9ed06a12813a5805b9c3a51bf82ad..52d4d7281b6fee6744fc7fa957141a492f3bdd7d 100644 (file)
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -278,9 +278,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^~";
 }