From: minima Date: Thu, 17 Oct 2002 00:34:02 +0000 (+0000) Subject: reduce the length of data in sentences to a default of 180 characters X-Git-Tag: PRE-1-52~135 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd0c19a8aeee5313a8963841cb85daa84eb1aa88;p=spider.git reduce the length of data in sentences to a default of 180 characters --- diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm index 1ef9c022..6917b88b 100644 --- a/perl/DXProtout.pm +++ b/perl/DXProtout.pm @@ -27,7 +27,7 @@ $main::branch += $BRANCH; use vars qw($sentencelth); -$sentencelth = 200; +$sentencelth = 180; # # All the PCxx generation routines @@ -141,7 +141,7 @@ sub pc19 my $here = $ref->here; my $conf = $ref->conf; my $version = $ref->version; - my $str = "^$here^$call^$conf^$version"; + my $str = "^$here^$call^$conf^$version"; if (length($s) + length($str) >= $sentencelth) { push @out, "PC19" . $s . sprintf "^%s^", get_hops(19); $s = "";