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

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