made some changes for perl 5.6

[spider.git] / perl / Minimuf.pm

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) ? '+' : ' ';
        
-    return "$c2\S$s$plus";
+    return "$c2". "S$s$plus";
 }              
 
 1;