From e69b2b430d27710d1bb636f9aa7720da1d067359 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 18 Aug 2000 13:36:24 +0000 Subject: [PATCH] made some changes for perl 5.6 --- Changes | 2 ++ perl/DXChannel.pm | 4 ++-- perl/Minimuf.pm | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) 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; -- 2.43.0