X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=1ebb29bc8ceb7d356c7ac2d7309c2d4ad16d6a7b;hb=b1de8d406cf0b76292d401c4b75f33fca86a822d;hp=42c995510c2c265d6bf8aa52b0bbc91a4e5945a0;hpb=2080db6b0892798e5f321098f59c1216f21a331d;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 42c99551..1ebb29bc 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -80,7 +80,7 @@ sub pc16
 
 	for ($i = 0; @_; ) {
 		my $str = "PC16^$self->{call}";
-		for ( ; @_ && $i < $DXProt::pc16_max_users; $i++) {
+		for ( ; @_ && length $str < 200; $i++) {
 			my $ref = shift;
 			$str .= sprintf "^%s %s %d", $ref->call, $ref->confmode ? '*' : '-', $ref->here;
 		}
@@ -117,7 +117,7 @@ sub pc19
 
 	for ($i = 0; @_; ) {
 		my $str = "PC19";
-		for (; @_ && $i < $DXProt::pc19_max_nodes; $i++) {
+		for (; @_ && length $str < 200; $i++) {
 			my $ref = shift;
 			my $here = $ref->{here} ? '1' : '0';
 			my $confmode = $ref->{confmode} ? '1' : '0';