made some changes for perl 5.6

diff --git a/Changes b/Changes
index 8d92f3075213baebb22d32ed0eda46ebd6c2ca94..f20c0910fc44cdad6683f601db00772606f79baf 100644 (file)
--- 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=======================================================================
 15Aug00=======================================================================
 1. added 1.25 of the admin manual html
 14Aug00=======================================================================

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 8b71dbff499d7946a83378b2938f6c54f6ea41c4..b7d32c44ad4f22e6a98693f7e531d373b61835fb 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -286,7 +286,7 @@ sub send_now
        my $call = $self->{call};
        
        for (@_) {
        my $call = $self->{call};
        
        for (@_) {

-               chomp;
+#              chomp;

         my @lines = split /\n/;
                for (@lines) {
                        $conn->send_now("$sort$call|$_");
         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 (@_) {
        my $call = $self->{call};
 
        for (@_) {

-               chomp;
+#              chomp;

         my @lines = split /\n/;
                for (@lines) {
                        $conn->send_later("D$call|$_");
         my @lines = split /\n/;
                for (@lines) {
                        $conn->send_later("D$call|$_");

diff --git a/perl/Minimuf.pm b/perl/Minimuf.pm
index d9b9e06fefa252ba5cf46c7971f9cf565ff65bd1..e5ab130f20f1f9e6664f867cacc0e9f32598d5e2 100644 (file)
--- 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) ? '+' : ' ';
        
        $s = 0 if $s < 0;
     my $plus = (($l / 6) >= $s + 0.5) ? '+' : ' ';
        

-    return "$c2\S$s$plus";
+    return "$c2". "S$s$plus";

 }              
 
 1;
 }              
 
 1;