From: minima Date: Fri, 18 Aug 2000 13:36:24 +0000 (+0000) Subject: made some changes for perl 5.6 X-Git-Tag: R_1_44~33 X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=e69b2b430d27710d1bb636f9aa7720da1d067359;hp=e90334372dd94c9deca9855be9ac7527a0da7870;p=spider.git made some changes for perl 5.6 --- diff --git a/Changes b/Changes index 8d92f307..f20c0910 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +18Aug00======================================================================= +1. added a couple of changes for perl 5.6 15Aug00======================================================================= 1. added 1.25 of the admin manual html 14Aug00======================================================================= diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index 8b71dbff..b7d32c44 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -286,7 +286,7 @@ sub send_now my $call = $self->{call}; for (@_) { - chomp; +# chomp; my @lines = split /\n/; for (@lines) { $conn->send_now("$sort$call|$_"); @@ -307,7 +307,7 @@ sub send # this is always later and always data my $call = $self->{call}; for (@_) { - chomp; +# chomp; my @lines = split /\n/; for (@lines) { $conn->send_later("D$call|$_"); diff --git a/perl/Minimuf.pm b/perl/Minimuf.pm index d9b9e06f..e5ab130f 100644 --- a/perl/Minimuf.pm +++ b/perl/Minimuf.pm @@ -473,7 +473,7 @@ sub ds $s = 0 if $s < 0; my $plus = (($l / 6) >= $s + 0.5) ? '+' : ' '; - return "$c2\S$s$plus"; + return "$c2". "S$s$plus"; } 1;