From e69b2b430d27710d1bb636f9aa7720da1d067359 Mon Sep 17 00:00:00 2001
From: minima <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.34.1