]> scm.dxcluster.org Git - spider.git/commitdiff
made some changes for perl 5.6
authorminima <minima>
Fri, 18 Aug 2000 13:36:24 +0000 (13:36 +0000)
committerminima <minima>
Fri, 18 Aug 2000 13:36:24 +0000 (13:36 +0000)
Changes
perl/DXChannel.pm
perl/Minimuf.pm

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=======================================================================
index 8b71dbff499d7946a83378b2938f6c54f6ea41c4..b7d32c44ad4f22e6a98693f7e531d373b61835fb 100644 (file)
@@ -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|$_");
index d9b9e06fefa252ba5cf46c7971f9cf565ff65bd1..e5ab130f20f1f9e6664f867cacc0e9f32598d5e2 100644 (file)
@@ -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;