From: minima <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://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=e69b2b430d27710d1bb636f9aa7720da1d067359;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;